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Editorial 


LA TRANSICION QUE NOS 

VIENE 


Liegan las entranables fechas de la Navidad, 
que para el sector informdtico representan una 
reactivacion de las ventas, sea de hardware o, 
con mayor intensidad, del software de diverti¬ 
mento. Nos encontramos en momentos de tran¬ 
sition del mercado. El 87 sera el momento de 
expansion del segmento PC y compatribles, La 
principal razon obedece a la brusca bajada de 
precios y la incorporation de nuevos fabricantes 
de compatibles. Tal es el caso de Amstrad, que 
con su esperado PC 1512 lograra disparar la de- 
manda por parte de los usuarios domesticos. 
Baja el listdn para acceder a sistemas que hasta 


hace pocos meses estaban considerados como 
coto de los profesionales y empresas. 

En el otro extremo se situa el ordenador ne- 
tamente destinado a juegos. Los nuevos precios 
mas bajos, comoen el caso del propio Spectrum 
+2 y los MSX, conseguiran que esta clase de 
sistemas sean ampliamente adoptados en los ho- 
garcs como un artfculo de consumo mas. 

Grandes esperanzas se han puesto en el pro- 
metedor 1987. 

Por nuestro lado os deseamos Feliz Navidad a 
todos los que compartis estas paginas mes a mes 
con nosotros. 


LOS MEJORES DE INPUT 


Memos pensado que es interesante disponer de un ranking que 
porga en claro, mes a mes, cuales son los programas preferidos 
de nuestros lectores. Para ello, es obligado preguntaros directamen- 
te y tener asi el mejor termometro para conocer vuestras preferen- 
cias. Podeis votar por cualquier programs aunque no haya sido co- 
mentado todavia en INPUT. 


El resultado de las votaciones sera publtcado en cada numero 

de INPUT 

Entre los votantes sortearemos 10 cintas de los titulos que pidais 
en vuestros cupones. 

Nota: No es precise que corteis la revista, una copia hecha a 
maquina o una simple fotocopia sirven. 


Enviad vuestros votos a: LOS MEJORES DE INPUT P.° de la Castellana, 93. Planta 14. 28046 Madrid 
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TIENES 
UNA CITA 


■ 

CALENDARIO MENSUAL 

■ 

CALENDARIO ANUAL 

■ 

RELLENANDO EL DIARIO 

■ 

CITAS, FINANZAS, FIESTAS 

Y CELEBRACIONES 


iJSo ser&s una de esas personas que 
siempre se olvida dd cumplcanos de su 
madre, o que se acuerda de que tiene 
una cita con d dentist# dos dias des¬ 
pues de la fecha en que debiera haber 
ido? ^0 taJ vez te sorprendes cuando 
te encuentras en tu buzdn una factura, 
aun sabiendo que tiene que aparecer 
regularmente cada cuatro meses? 

El programa que vamos a ver a con¬ 
tinuation se ocupara de recordarte 
todo este tipo de cosas. Es inuy senci- 
lfo de usar y resulta mucho mas diver- 
lido que escribir notas en un diario, 
por lo cual no tendras excusa si te ol- 
vidas de aciidir a una cita o de pagar 
un recibo, Si tienes impresora, puedes 
sacar ademas una copia impresa del 
diario, Uevandola contigo para consul- 
tar tus proximos gastos cuando no ten- 
gas e! ordenador a mano. 


CALENDARIO AUTOMATICO 


En reaiidad el programa hace dos 
cosas: es capaz de imprimir un calen- 
dario o un diario. La option mas sen- 
cilia te permite observar una hoja de 
calendario dc cualquier mes entre ios 
ahos 1.753 v 29.999. La presentation 
de dicha hoja se hace de la forma acos- 
tumbrada, con Ios nombres de las dias 
de la semana en la parte alta, y los nii- 
meros alineados por columnas debajo, 
El programa tiene en cuenta automa- 
tlcamente los ahos bisiestos y la fecha 
dd Domingo de Resurrection se im- 
prime debajo del mes en que cae cada 
aho. 

Aparte de eonsiderarlo como calen¬ 
dario de un solo mes, puedes tener el 
calendario de un aho complete. Te re- 
sultara miiy util en el caso de que ten- 
gas una impresora, ya que puedes sa¬ 
car una copia del calendario y ponerla 
en tu mesa de trabajo o pincharla en 
la pared, quedando la presentacion 


con espacio sufieiente para que pue- mente de los acontecimientos regula- 
das escribir notas junto a cada una de res, tales como retibos o adversaries, 
las feehas, situandolos en la fecha corrects para 

todos los siguientes meses o ahos, Por 
---— ejemplo, si haces una anotacion bajo 



tc si se trata de una operation anuah 
mensual, cuatrimestral o simplemente 
es la unica vez que se produce, Supon- 
games que estas tecleando los detalles 
de tus pagos mensuales, En tal caso, 
teciearias M para indicar pages 
mensuales y a continuation el nombre 
del concepto ALQUILER, seguiido 
por la fecha del primer pago, A partir 
de ese momento aparecer a la palabra 
ALOU1LER junto al dia correspon- 
diente de todos los meses 
siguientes, 


La opcion dc diario te permite man- 
tener el seguimiento de lo que va su- 
cediendo, Puedes hacer anotaciones 
bajo cuatro encabezamientos distin- 
tos: Finanzas, Entxevistas, Celebra- 
ciones y Vacaciones, estando cada una 
de ellas destacada eon un color dife- 
rente para que cuando utilices el dia- 
rio te resuite mas facil enconirar un 
tipo de anotacion determinado. 

La introduction de la information 
es muy sencilla, y este programa tiene 
ademas la ventaja sobre los diaries or¬ 
dinaries de que se ocupa automatica- 


DIARIO ELECTRONICO cl encabezamiento de Finanzas, el 

-—-programa te preguntara primeramen- 
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como se te presenta ciesde el punto de 
vista financiero, en tal caso lo mas ra- 
pido es seleccionar el calendario del 
primer mes y destacar las fechas ftnan- 
cieras pulsando la tecla F , pasar al 
mes siguiente y hacer lo mismo y asi 
sucesivamente hasta compietar todo el 
ano. Cuando hayas utilizado el pro- 
grama te daras cuenta de la gran fle- 
xibilidad que tiene. 


INTRODUCCtOIM DEL 
PROGRAMA 


HI programa combinado dc calen- 
dario y agenda te avudara a mantener 
tus asuntos en orden y a planificar d 
afio proximo. Toma ahora una de tus 
resoluciones de Ano Nuevo y empie- 
za a ufilizarlo ya. 


La opcion de Celebraciones agrupa 
todas las cosas de! tipo de cumplea- 
nos, aniversarios, onomasticas. etc, de 
forma que pueden ser tenidos en cuen¬ 
ta automaticamente como sucesos 
anuales. Las Entrevistas v Vacaciones 
se tratan como acontecimientos uni¬ 
ces* 

E) orden en que introduzcas las fe¬ 
chas no tiene importancia, ya se en- 
carga el ordenador de ponerlas en su 
orden y de agruparlas corrcctamente 
en el mes adecuado* 

En euanto tengas introducidos los 
datos, conviene que los almacenes lo 
antes posible con la opcidn SAVE del 
menu para prevenir posibles desastres 
en el programa. Los datos quedan al- 
macenados en un fichero separado Ha- 
mado DIARIO, pudiendo ser carga- 
dos, corregidos, actualizados o borra- 
dos en cualquier momenta, Por eso re- 
sulta tan facil mantener tu diario al 
dia. 


pia impresa para ese mismo mes, pue¬ 
des realzar las fechas correspondien- 
tes a las entradas del diario pulsando 
una de las teclas F * E , C o V 
para cada una de [as cuatro categorias 
(fimmzas, citas, celebraciones o vaca¬ 
ciones)* Tambien en este caso se pre- 
sentan con su correspondiente color, 
para que sepas a que categona corres- 
ponde cada fecha, si bien necesitas el 
diario para conocer los detalles de 
cada entrada. 

La mejor forma de utilizar el progra¬ 
ma depende de lo que quieras saber. 
Si quieres recordar lo que ticnes en un 
mes determination selecciona el diario 
de ese mes. Si per el eontrario lo que 
deseas es echar un vistazo a todo un 
ano complete para ver, por ejemplo. 


USO DEL DIARIO 


En euanto hayas introducido algu- 
nos datos en el programa, puedes ver 
como funciona el diario para las apli- 
caciones mensuales. Teclea ei ntimero 
del mes y el ano y podras ver todas las 
entradas correspondientes a ese mes y 
ese aho, incluyendo las operaciones fi- 
nancieras regulates y las celebraciones 
programadas desde meses o ahos an- 
teriores. Las entradas se agrupan jun¬ 
tas bajo las diferentes categorias, cada 
una de ellas destacada en los mismos 
colores que se utilizan para el calen¬ 
dario mensuah 

El programa espera a que pulses 
una tecla antes de presentar cada gru- 
po en la pantalla, Esto es asi en el caso 
en que hay a que acorn odar demasia- 
das entradas en la pantalla de una sola 
vez, por lo que se detiene para que 
tengas la posibilidad de leer la panta¬ 
lla antes de hacer un scrolling para la 
presentacion de nuevos datos. Si tu 
ordenador tiene conectada una im- 
presora, puedes optar por sacar una 
copia impresa de todos los datos. 

Si pasas ahora nuevamente a 
opcion de calendario y sacas una co- 
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160 


165 

170 

180 

190 

200 

210 


220 



230 


■Teclea 


10 DATA 2,4,1,3,7,31,28,31, 
30,31,30,31,31,30,31,30,31 
20 DATA "MENS", "TRIM", "ANUA", 
"UNIC" 

30 BORDER 0: PAPER 0: INK 7; 

CLS 
40 CLS 

50 CLEAR : LET P=2 
60 LET Z$=" " 

70 DIM 0$C1,31): DIM 0(4): 

DIM L$(4,150,31): DIM T$ 
(4,12): DIM C<4): DIM Z(5) 
80 FOR N=1 TO 5: READ Z(N); 
NEXT N 

90 DIM D(12) : FOR N=1 TO 12: 

READ D(N> : NEXT N 
100 LET M$="ENEROC3*ESPACIO0 


110 


120 


130 


140 


150 


FEBRERO[2*ESPACIOllMARZO 
L4*ESPACI03ABRILL4* 
ESPACI03MAYOi:5*ESPACIOO 
JUNIOC4*ESPACI03JULIO 
C4*ESPACI03AGOSTOC3* 
ESPACI03 SEPTIEMB.OCTUBRE 
C2+ESPACI03 NOVIEMBRE 
DICIEMBRE" 

LET S$="DOMLUNMARMIEJUE 
VIESAB" 

DIM P$(4,4): FOR N=1 TO 
4; READ P$(N); NEXT N 
LET T$(1)="FINANZAS": 

LET T$(2)="ENTREVISTAS": 
LET T$(3) = '’CELEBRACI0NES 
LET T$(4)=" 
VACACIONES" 

DEF FN M(A)=((A/K2-INT 
(A/K2))*K2) 

LET SV=0: LET M0=0: LET 
DA=0 


290 


300 


310 

320 

330 

340 

350 

360 


370 

380 

390 

400 

410 

420 


PRINT ,r HAY ALMACENADO 
ALGUN DIARIO S/N? M : LET 
K$="SN" 

GO SUB 1480: IF KB=1 
THEN GO SUB 1690 
CLS : GO SUB 990: CLS : 
LET P=2 

IF C=1 THEN GO SUB 760 
IF C=2 THEN GO SUB 
1760 

IF C=3 THEN GO SUB 
2240 

IF C>3 AND C<8 THEN LET 
KB=C-3: GO SUB 1140: 

LET SV=1 

IF C=8 THEN GO SUB 
1610: LET SV=0 
IF C=9 AND SV=1 THEN 
PRINT : PRINT "NO HAS 
REALIZADO NINGUN 
CAMBIO'" "ESTAS SEGURO 
QUE GUIERES SALIR": 

LET K$="SN": GO SUB 
1480: IF KB=2 THEN 
LET C=0 

240 IF C<>9 THEN GO TO 
170 

250 CLS : PRINT "ADIOS" 
260 STOP 

270 LET MX=Q: LET A2=0 
280 LET K2=4: IF FN M 
(YR)=0 THEN LET A2=1 
LET K2=100: IF FN M(YR) 
=0 THEN LET A2=0 
LET K2=400: IF FN M(YR> 
=0 THEN LET A2=1 
IF KB=2 THEN LET MX=A2 
+28 

IF K8=0 THEN LET KB=1 
IF KB<>2 THEN LET MX= 
D(KB) 

LET KB=MX: RETURN 
LET RS=0 

IF DA=DE AND MO=ME AND 
KB=5 THEN LET KB=5: 
RETURN 

IF KB=5 THEN LET KB=7: 

RETURN 

LET RS=Z(KB) 

IF G<KB)=0 THEN GO TO 
450 

LET M4=Q(KB) 

FOR 1=1 TO M4 

LET K$=L$(KB,I): LET K2= 

3: GO SUB 470: IF VAL K$ 


INPUT 7 


















(2 TO 3) ODA THEN LET 
K2=0 

430 IF K2=l THEN LET KB=7; 

RETURN 
440 NEXT I 
450 LET KB=RS 
460 RETURN 

470 IF KBOI THEN GO TO 520 
480 IF VAL K$(1)=3 THEN GO 
TO 540 

490 IF VAL K$(1)=4 THEN GO 
TO 530 

500 IF VAL K$(1)=1 AND VAL 
K$(2 TO 3}=DA THEN LET 
K2=1: RETURN 

510 IF VAL K$(1)=2 AND FN M< 
(((YR-VAL K$(6 TO 9))*12 
)+(12-VAL K$(4 TO 5))+M0 
)>=Q THEN LET K2=1 : 
RETURN 

520 IF KB=3 THEN GO TO 540 
530 IF VAL K$(2 TO 3)=DA AND 
VAL K$(4 TO 5) = M0 AND 
VAL K$(6 TO 9)=YR THEN 
LET K2=1: RETURN 
540 IF VAL K$(4 TO 5) = M0 
THEN LET K2=1: RETURN 
550 LET K2=0: RETURN 
560 LET Y2=0: LET D2=0: LET 
M2=0 

570 LET Y2=YR“1 
580 LET D2=Y2*365+INT <Y2/4 
)-INT CY2/100)+INT <Y2/ 
400) 

590 IF M0=1 THEN GO TO 630 

600 FOR M=1 TO MO-1 

610 LET KB=M: GO SUB 270: 

LET D2=D2+KB 
620 NEXT M 

630 LET KB=D2+DA: RETURN 
640 LET MS=MO: LET DS=DA 
650 LET DA=1: LET M0=3: GO 
SUB 560: LET K2=7: LET 
DE=FN MCKB) 

660 LET N2=(INT (YR/100))- 
16: LET C2=3+N2-INT <(N2 
+1)/3)-INT (N2/4) 

670 LET K2=19: LET N2=FN M 
CYR+1): LET K2=30: LET 
D2=FN M(C2+(N2*19)) 

680 IF N2>11 AND D2<27 THEN 
LET D2=D2-1: GO TO 700 

690 IF N2<=11 AND D2=29 
THEN LET D2=28 

700 LET D2=D2+21 


710 LET D2=D2+1: LET K2=7; 

IF INT (FN M(D2+DE)+0.1) 
<>1 THEN GO TO 710 
720 IF D2<32 THEN LET ME=3 
730 IF D2>=32 THEN LET D2= 
D2-31: LET ME=4 
740 LET DE=INT (D2+0.1): 

LET MO=MS: LET DA=DS 
750 RETURN 

760 GO SUB 2510: GO SUB 
2480 
770 CLS 
780 LET MK=5 
790 CLS 

800 PRINT AT 17,0;"<BREAK> 
VOLVER AL MENU" 

810 PRINT "Z,X TECLAS 
CAMBIO MES " 

820 PRINT INK 7;T$<1); INK 
2;" F INK 7;T$(2>; 

INK 4;" E" 

830 PRINT INK 7;T$(3); INK 
1;" C INK 7;T$(4); 

INK 3;" V" 

840 PRINT AT 0,0 
850 GO SUB 2570: IF MK<5 
THEN PRINT T$(MK) 

860 PRINT UP: LET KB=1: GO 
SUB 1920 

870 IF P=3 THEN PRINT #P 
880 PRINT UP: LET T2=MK: LET 
S2=1: GO SUB 2020 
890 LET P=2 

900 LET K$="ZXFECV ": GO SUB 
1480: LET A=KB 
910 IF A=1 THEN LET M0=M0-1 
920 IF A=2 THEN LET M0=M0+1 
930 IF M0=13 THEN LET M0=1: 

LET YR-YR+1: GO SUB 640 
940 IF M0=0 THEN LET M0=12: 

LET YR=YR-1: GO SUB 640 
950 IF A>2 AND A<7 THEN LET 
MK=A-2 

960 IF A<3 THEN LET MK=5 
970 IF A<>7 THEN GO TO 790 
980 RETURN 

990 CLS : PRINT PAPER 5; 

INK 1;AT 0,7; 

" CALENDARIO/AGENDA "; 
PAPER 6; INK 0;AT 2,8; 

" MENU PRINCIPAL " 

1000 FOR Z=1 TO 19: PRINT 
PAPER 1;" NEXT Z: 
PRINT AT 3,0 
1010 PAPER 1: INK 7 


1020 PRINT AT 4,1;"1.VER 

CALENDARIO MENSUAL" 

1030 PRINT AT 6,1;"2.VER 

CALENDARIO ANUAL" 

1040 PRINT AT 8,1;"3.VER 

DIARIO MENSUAL" 

1050 PRINT AT 10,1;"4. 

REVISAR/EDITAR FINANZAS 1 

1060 PRINT AT 12,1;"5. 

REVISAR/EDITAR ENTREVIS 

It 

m 

1070 PRINT AT 14,1;"6._ 

REVISAR/EDITAR CELEBRAC 

II 

• 

1080 PRINT AT 16,1;"7. 

REVISAR/EDITAR 

VACACIONES" 

1090 PRINT AT 18,1;"8_ 

SALVAR LAS LISTAS" 

1100 PRINT AT 20,1;"9. 

DEJAR EL PROGRAMA" 

1110 PRINT TAB 10;"ELIJA, 

FOR FAVOR" 

1120 PAPER 0: INK 7 
1130 LET K$="123456789": GO 
SUB 1480: LET C=KB: 
RETURN 

1140 LET KK=KB 
1150 LET KB=KK: GO SUB 1330 
1160 LET B=Q(KK): FOR Y=4 TO 
20: PRINT AT Y,0;Z$: 

NEXT Y: PRINT AT 4,0 
1170 IF B=0 THEN GO TO 1210 
1180 FOR N=1 TO B 
1190 LET K$=L$(KK,N): LET K2 
=N: GO SUB 1370 
1200 NEXT N 

1210 LET K$="ADM”: GO SUB 
1480: LET A=KB 
1220 FOR 1=1 TO 100: NEXT I 
1230 IF AOI THEN GO TO 
1280 

1240 LET K2=B; LET T7=KK: GO 
SUB 1550: LET V$=STR$ 

T7: GO SUB 1400 
1250 LET W$=STR$ DA: IF LEN 
W$=1 THEN LET W$="0’'+ 
W$ 

1260 LET V$=V$+W$: LET W$= 
STR$ MO: IF LEN W$=1 
THEN LET W$="0 ,, +W$ 

1270 LET V$=V$+W$+STR$ YR: 

LET L$(KK,B+1)=V$+B$: 

LET Q(KK)=Q(KK)+1 
1280 IF A<>2 THEN GO TO 
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1290 

1300 

1310 

1320 

1330 

1340 


1350 

1360 

1370 


1380 

1390 

1400 

1410 


1420 

1430 

1440 


1450 

1460 


1470 


1490 

1500 

1510 

1520 

1530 


1310 

INPUT "QUE NUMERO 
DESEAS BORRAR (MIN 1)" 
;NN: IF NN<1 OR NN>B 
THEN GO TO 1290 
FOR Z=NN+1 TO B: LET 
L$(KK,Z-1)=L$(KK,Z): 
NEXT Z: LET Q(KK)=Q(KK) 
-1 

IF A<>3 THEN GO TO 
1160 
RETURN 

PRINT "LISTA ACTUAL"'T$ 
(KB) 

PRINT AT 0,14; INVERSE 
1;"A"; INVERSE 0;"# 

ADIR INVERSE 
INVERSE 0;"ORRAR 
INVERSE 1;"H"; INVERSE 
0;"EMU" 

PRINT AT 3,0; 

RETURN 

LET F$=L$(KK,K2): LET 
E$=P$(VAL F$( TO 1))+": 
"+F$(2 TO 3) + ,, :"+F$(4 
TO 5)+":"+F$(6 TO 9) 
PRINT £$;" F$(1Q TO 

30) 

RETURN 

LET BLET VP=5 
INPUT "DENOMINACION? 
(MAX 22 LETRAS)"' LINE 
B$ 

LET VP=VP-1 
PRINT AT VP,0; 

INPUT "DIA 

SIGNIFICATIVO:DA: IF 
DA<1 OR DA>31 THEN GO 
TO 1430 
GO SUB 2510 

LET KB=MO: GO SUB 270: 
IF DA>KB THEN GO TO 
1430 

LET K$=B$: GO SUB 1520: 
LET Y$=K$: RETURN 
LET A$=INKEY$: IF A$="" 
THEN GO TO 1480 
FOR N=1 TO LEN K$: IF A 
$<>K$(N) THEN NEXT N 
IF N>LEN KSTHEN GO TO 
1480 

I..ET KB=N: RETURN 

LET PP=( INT (YR/10O-17 
) *16+M0 

LET K2=100: LET QQ=FN 



M(YR) 

1540 LET K$=CHR$ PP+CHRS QQ+ 
K$: RETURN 

1550 IF T7<>1 THEN GO TO 


TO 1620 

1630 SAVE "DATA" DATA QO 
1640 FOR N=1 TO 4 
1650 IF Q(N)=0 THEN GO TO 
1670 


1580 

1560 PRINT AT 20,0; INVERSE 
1;"M"; INVERSE 0; 
"ENSUAL INVERSE 1;"T 
INVERSE 0;" 

RIMESTRAL "; INVERSE 1; 
"A"; INVERSE 0;"NUAL "; 
INVERSE 1;"U"; INVERSE 
0;"NICO" 

1570 LET K$="MTAU M : GO SUB 


1660 FOR M=1 TO Q(N): LET 0$ 
(1)=L$(N,M): SAVE "DATA" 
DATA 0$(): NEXT N 
1670 NEXT N 
1680 RETURN 

1690 CLS : PRINT AT 10,5; 
FLASH 1;"PREPARA EL 
CASSETTE" 

1700 LOAD "DATA" DATA QO 
1710 FOR N=1 TO 4 


1480: PRINT AT 20,0;Z$: 
PRINT AT 3,0;: LET T7= 
KB; GO TO 1600 
1580 IF T7=3 THEN RETURN 
1590 LET T7-4 
1600 RETURN 

1610 CLS : PRINT FLASH 1;AT 
10,5;"PREPARA EL 
CASSETTE" 


1720 IF Q(N)=0 THEN GO TO 
1740 

1730 FOR N=1 TO Q(N): LOAD 
"DATA" DATA 0$(): LET 
L$(N,M) = 0$(1): NEXT M 
1740 NEXT N 
1750 RETURN 

1760 LET M4=0: LET A4=Q 
1770 INPUT "A#0:";YR: IF YR< 


INPUT 9 



































Aplicado"®* 


1753 OR YR>29999 THEN 
GO TO 1770 
1780 GO SUB 640 
1790 GO SUB 2480 
1800 CLS 

1810 POKE 23692,255 
1820 PRINT #P;"A#0 ";YR 
1830 PRINT UP: LET KB=0: GO 
SUB 1920: PRINT UP 
1840 GO SUB 2460 
1850 FOR Z=1 TO 12 
1860 LET MO=Z 

1870 PRINT #P;M$(M0*9-8 TO 
M0*9) 

1880 LET T2=5: LET S2=0: GO 
SUB 2020 

1890 IF P=2 THEN IF INKEY$ 
= , " , THEN GO TO 1890 
1900 NEXT 1 
1910 RETURN 

1920 LET X2=0: LET €2=0: LET 
D2=0 

1930 IF KB=0 THEN LET X2=7: 
PRINT UP 


1940 IF P=3 THEN LET KB=K8 
+ 1 

1950 PRINT #P;Z$< TO X2); 

1960 FOR D=1 TO 7 

1970 INK 4:IF D=1 THEN INK 2 

1980 PRINT #P;Z$C TO KB);S$( 
(D-1)*3+1 TOC D-1)*3+3); 

1990 NEXT D 

2000 INK 7 

2010 RETURN 

2020 PRINT 

2030 IF P=3 THEN PRINT AT 
10,4; FLASH 1;"SALIDA A 
LA IMPRESORA" 

2040 LET M5=0: LET XP=0: LET 
X2=D: LET W2=0: LET A$= 
LET D$="" 

2050 IF S2=1 THEN LET A$= 

" LET W2=4 

2060 IF $2=0 THEN LET X2=7: 


2070 IF P=3 THEN LET A$=A$+ 
" LET W2=W2+1 
2080 LET DA=1 

2090 LET KB=M0: GO SUB 270: 
LET M5=KB 

2100 GO SUB 560: LET K2=7: 

LET XP=FN M(K8) 

2110 PRINT #P;Z$( TO XP*W2>; 
2120 LET DA=0 
2130 PRINT #P;Z$( TO X2); 
2140 LET DA=DA+1: LET D$=A$+ 
(STR$ (DA))+" ": IF LEN 
D$<W2 THEN LET D$=D$+ 
Z$C TO W2-LEN D$) 

2150 IF A$= N " THEN PRINT #P 
;D$;: GO TO 2170 
2160 LET KB=T2: GO SUB 350: 

PRINT UP} INK KB;D$; 
2170 LET XP=XP+1 
2180 IF NOT (XP>6 OR DA=M5) 
THEN GO TO 2140 
2190 LET XP=0: PRINT UP: IF 
S2=1 THEN PRINT UP 
2200 IF DAOH5 THEN GO TO 
2130 

2210 IF M0=ME THEN PRINT UP 
PRINT UP }"DOMINGO DE 
PASCUA ";M$(ME*9-8 TO 
ME*9);DE 

2220 IF P=3 THEN PRINT AT 
10,0;Z$: PRINT AT 10,13 
;"LISTO" 

2230 RETURN 
2240 GO SUB 2510 
2250 LET T2=0: LET MX=0: LET 
N2=0; LET A$=’"': LET CL 
=0: LET M9=H0: LET Y9= 
YR 

2260 GO SUB 2480: CLS 
2270 GO SUB 2570: PRINT UP 
2280 PRINT #P;"DIAC5* 

ESPACIOOENTRADA": print 

AT 0,16;"CUALQUIER 
TECLA 1 " TAB 9;"PARA 
SIGUIENTE ENTRADA" 

2290 PRINT UP 
2300 GO SUB 2460 
2310 IF M0=ME THEN PRINT UP 
} INK 5;DE;" DOMINGO 
DE PASCUA" 

2320 PRINT UP 
2330 FOR T=1 TO 4 
2340 LET MX=Q(T) 

2350 IF MX=D THEN GO TO 2410 
2360 FOR N=1 TO MX 


LET W2=3 



lO INPUT 




































2370 LET K$=L$(T,N) 

2380 LET KB=T 

2390 LET K2=3: GO SUB 470: 

IF K2=1 THEN PRINT #P; 
INK Z(T) ;K$(2 TO 3);"C5 
*ESPACIO3";K$C10 TO ) 
2400 NEXT N 

2410 IF INKEY$="" THEN GO 
TO 2410 
2420 NEXT T 

2430 FOR 1=1 TO 100: NEXT I 
2440 IF INKEY$="" THEN GO 
TO 2440 

2450 LET M0=M9: LET YR=Y9: 
RETURN 

2460 IF INKEY$=" ,f THEN GO 
TO 2460 
2470 RETURN 

2480 PRINT : PRINT "GUIERES 
COPIA EN PAPEL CS/N)?": 
LET K$="SN": GO SUB 
1480 

2490 LET P=2: IF KB=1 THEN 
LET P=3 
2500 RETURN 
2510 INPUT "MES?";WO 
2520 IF M0<1 OR M0>12 THEN 
GO TO 2510 

2530 INPUT "AtfO?";YR 
2540 IF YR<1735 OR YR>29999 
THEN GO TO 2530 
2550 GO SUB 640 
2560 RETURN 

2570 PRINT #P; PAPER 1; INK 
7;M$(M0*9-8 TO M0*9); 

" ";YR 
2580 RETURN 


A1 ejecutar por primera vez el pro- 
grama, te preguntara si ya tienes al- 
macenada alguna lista en la agenda. 
De momento no tienes nada, por lo 
que tienes que responder tecleando 
N . El program a pasa entonces a re- 
presentar ei menu principal, que cons- 
ta de las siguientes opciones: 

1. - Calendario anual 

2. - Consultar agenda 

3. - Modificar agenda 

4. - Revisar/Editar Finanzas 

5. - Revisar/Editar Entrevistas 

6. - Revisar/Editar Celebraciones 

7. - Revisar/Editar Vacaciones 

8. - Almacenar las listas 

9. - Salir del programa 





v 


Pucdes consultar el calendario 
anual o mensual sin tener que intro¬ 
duce datos, por lo que puedes empe- 
zar por hacer esto. 


MIRANDG EL CALENDARIO 


Si seleccionas la opcion 1, pucdes 
consultar un calendario valido para 
cualquier mes o ano dentro de los li- 
mites del programa, Dichos I unites 
van desde el afio 1,753, cuando empe- 
zd el moderno calendario gregoriano, 
hasta el afio 29.999. jSuponemos que 
sera suficiente para tf! Por derto, el 
mes debe ser jntroducido en forma de 
numero (de 1 a 12); el programa no 
aceptara palabras. 

Si tienes una impresora conectada 
con tu ordenador, tienes la opcion de 
sacar una copia del calendario impre- 
sa en papel; cn case contrario te apa- 
recera el calendario en la pantaila. En 
la parte superior se presentan el nom- 
bre del mes y el ano. Mas abajo apa- 
recen los dias y las fechas. La semana 


se presenta empezando por el domin- 
go. La fecha del Domingo de Resu- 
rreccidn se calcula automaticamentc y 
se presenta abajo, sieinpre que caiga 
dentro del mes que se esta re presen- 
tando (marzo o abril). 

Mientras consultas el calendario 
mensual, hay varias cosas que puedes 
hacer; al fondo de la pantaila tienes 
las diferentes opciones, Si pulsas 
BREAK vuelves at menu principal. 
Las teclas Z y X te permiten 
avanzar o retroceder un mes. 

Las otras teclas que hacen algo son 
F , E , C y V , que se utilizan 
para las entradas correspondientes a 
Finanzas, Entrevistas, Celebraciones 
y Vacaciones. Pero no te mostraran 
nada si las pulsas ahora, hasta que ha- 
yas realizado algunas entradas per me¬ 
dio dc las siguientes opciones. 


ESCRIBIENDO EN LA AGENDA 


Si cliges la opcion 3 aparecera un 
diario o agenda mensual. Pero prime- 
ro tienes que efectuar algunas entra- 


INPUT 11 






























































das. Para ello tienes que selectionar la 
option eiegida seguida de alguna de 
las categonas. 

Sea cual sea la opcidn que elijas, 
pulsa A para anadir una entrada 


cualquiera, D para destruirla y M 
para volver al menu principal. 

Tal como vimos antes, la section 
llamada Finanzas ofrece una election 
para realizar entradas mensualmente, 


trimestralmente, anualmente o para 
realizar una anotacion aislada, Para 
seleccionar una de las anteriores op- 
clones, pulsa respecfivamente M , 
T t A o S . A continuatidn el 
programs te pediia que introduzcas un 
nombre o sentencia de hasta 20 letras 
para describir el tipo de anotacidn, se- 
guido de la primera fecha significati- 
va, Para una entrada que se repite, 
esto ocurriiia la primera vez que se 
realize una anotacion, por ejemplo el 
pago del primer cheque la primera vez 
que cobres un sueldo. El pmgrama se 
ocupa de cubrir automaiicamente los 
detalles para los proximos meses o 
ahos, Las Entrevistas y las Vacaciones 
se tratan como sucesos aislados, pero 
las Celebraciones se consideran anua- 
les, por lo que puedes usar esta opcidn 
para los cumpleahos y demds aniversa- 
rios. 

Puedes hacer hasta 100 anotaciones 
en cada una de las distintas categories 
que te ofrece el menu. 


Vs\\\\\\\\\\\\>X\\\\\\\\\\\\\\\\\^^ 


I 

j 

s 

I 
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Suscrlbase ahora a 



PRECIO DE CUBIERTA PTAS. 375 

MEMOS; 20 % de descuento al suscriptor Ptas. 75 

USTED PAGA SOLO PTAS. 300 (por ejemplar) 



inczlair - 


SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas). USTED PAGA SOLO 3.600 Ptas 
(entrega a dotnicilio gratis) 


INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION... 
(un curso completo de programacion)... 





d® - ^ (e cW4° 5 



...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESiONAL... 

4 EL NIVEL DE LOS ESTUDIOS... 

2 

y 

t . a *\ rnundo de 

0 ^.owcubn el aI con lac'M 

Y ...Ap^daJt P ^ otden adores -. 

| _- 

\ : 

/ Recorte y envTe este cupon 
y de in media to a EDISA. L6pez de Hoyos, 141 
/, SS002 Madrid, o bien liSmenos 
y al Tell. (91) 415 97 12 

y XNXXVXXXXXXXXXXXXXXXXXXXXVXXXXXX' 


INPUT 


BOLETIN DE SUSCRIPCION 

(12 ejempSaresK a3 pretlo especial ds oferta de 3.600 Pias> AHORRANPOME Z 
l ejemplares sudios. (For favor, curnplimente este bolelfn con dates persona I es <5 

■ I _ ■ J _ _ Cii_ I _ . j. L_ m m J - r * . -ri, m-m Li i SfA A PV% T. H. T .rv fcr I m i - . 1 


y 

I 

V 

i 


SI. envieme INPUT SINCLAIR durante 1 afro 
900 Ptas. sobre el precio normal de portada de 12 . 
mdiquenos con una [X) la forma de pago por listed eltglda, m#talo en un sob re y deposEtelo en el buzdn m^s proximo). 

J APELUDOS I_I_L—L—l-j-j-1-1-1 —A 

\- 1 j PISO 


NOhtBRE L_l_ = -L _L_J_ 

□OMICIUO L 1_ L I X , 

PO&UCKWI I I I_I L 


J L 


J—L 


_l_I_I NUM U 

PHQVIM1EA l_J__L 


J-I-1-L 


E5CALERA I_OOO POSTAL L 

J_I_I_I_l__l TELE I I 1 -1 


A L 


\ 


PftOFtSlON l_ > —1 


A. 


J - L 


J_I 


FOR MA DE PAGO ELEGI DA: Reemtols a DomlcUlKWn Bancani .. -□ 

Tal-fln nOfflitrullVO qite adjunlo a favor de EDESA . , - -.-- l—l 


INSTRUCCIONES DE DOMICEUACION 3ANCARIA (si es eiegida por usted) 


May sertores mlos: ---- 

Les rueg.o que, con cargo a mi cuenta n.° — 
Editorial PLANETA-AGOSTINI a nombre de: 

iii<i _JL_I SAHCO'Cd« AHOR.RG5 

.. i _I EKRUCClOM I_J_J_ 


de. 


de 19- 


1_I— A -L 


i_I_I_I_LJ. 


J L l J J—L 


1 

ailendan, hasta mievo aviso, el pago de los recibos que les preseniari . 

. ilia y 

i i i i i J _I_I_I_I_I_I_LJL I—I y 

* i > i i _i_i_ j_j_j _i_ i _I_i—i—i y 

FtuMA y, 

S' 


J_I-L 


J L 


12 INPUT 










































































































ARMY MOVES 


SPECTRUM + 2 COMPATIBLES 


DERDHAL es un miembro del C.O.E., Cuerpo de Opera clones Especiales. 
Ha side entrenado dura me largos atios para convert! rse en un especial ist a y 

ahora es el primero de su promocidn. 

Puede atravesar las lineas enemigas por tierra, mar o aire, domina iodas las 
tdcnicas de la guerra en la selva, conoce todas las armasy es un experto en 

explosives. 

ARMY MOVES, tres sistemas de combate distmtos: 

- JEEP equips do con misjles tierra-aire. 

■ HELICOPTERO COBRA para la lucha en la jungla . 

■ SOLDADO COE miembro de un cuerpo de dhte, entrenado en todas las 

t6cnicas conocidas para fa guerra. 


NONAMED 


SPECTRUM 4- 2 COMPATIBLES 


Para ser caballero del rey no existe otro sistema 
Tu obligacidn es superar la prueba, dominar el miedo , sufrir el rito 
Tienes que encontrar la salida del castillo sin nombre donde 

te ban encerrado. 

En la busqueda conoceras unos ext ratios ogros f que realm ente 
no son mas que otros intrepidos Caballeros que no consiguieron 
encontrar la puerta del Castillo y fueron hechizados por 

el mago NIL REM. 


AFTER THE WAR 


SPECTRUM + 2 COMPATIBLES 


Imagina elplaneta Tierra sumido en la radioactividad. 

Imagina hordas de mutantes luchando a muertepor conseguir 

alimentos: 

Imagina las bandas de asesinos recomeneto ciudades dormidas, multitud 
de conversores gamma acechando en las esquinas. 

Un mundo donde vida y muerte se suceden coma una 

danza macabra. 


D1NAMIC SOFTWARE P. BE ESPANA. IS. TORRE DE MADRID 23-1 36008 MADRID TELEX: 47003 
PEDIDOS CONTRAREEMEOLSO: (SI) 243 7S 87 DJSTFtlBUlDORES (SI) 447 34 10 
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LA POTENTE 

INSTRUCCION LOIR (111 



Uno de los punt os b£$icos que dife- 
rencian a) microprocesador Z-80 de 
otros mas antiguos como ei 6502, es la 
existencia de un potente grupo de in§- 
trucciones que fadlitan el manejo de 
datos en memoria desde el codigo ma- 
qitina, la serie de itistrucciones LDIR. 

Dicho grupo esta compuesto por 
cuatro nemonicos diferentes aunque 
de accion similar: todos ellos ejecutan 
aiguna maniobra relaccionada con el 
traslado de una seccion de datos de 
una zona a otra de la memoria, de una 
forma raptda y sencilla, 

Su estructura es: 

- LDIR (load, increase and repeat): 
El mas usado e importance- Como su 
nombre indica, dicha instruccion lleva 
a cabo una especie de «bucle de tras- 
Iado», Carga un registro intermedio 
con el date serialado y lleva su valor 
hasta una position indicada previa- 
mente, A continuation toma e! si- 
guiente dato de la direction de memo¬ 
ria contigua a la del primer byte apun- 
tado , y repite la misma operation has¬ 
ta un rmmero de veces prefijado de 
antemano, La manera de indicar la di- 
reccidn de origen de los bytes a tras- 
ladar, su lugar de destine y el tamano 
de dicho bloque de datos, se consigue 
cargando los registros HL, DE y BC 
con los valores deseados antes de eje- 
cutar la instruccion LDIR: 

LD HL,origen 
LD DE,destino 
LD BC,niimero de bytes 
LDIR 

Ejecutando un esquema de instruc- 
ciones como el anterior conseguimos 


una copia de dichos bytes a partir de 
la posicion de destino, y decimos una 
copia porque los valores originales si- 
guen almacenados en sus posiciones, 
es decir hemos conseguido un duplica- 
do pero sin alterar los datos de parti- 
da- Lo mismo da manejar bytes de la 
memoria de atributos que de la ROM, 
ya que el ordenador no distingue en- 
tre clases de bytes (para el son simple- 
mente datos en binario), Esto nos su- 
giere la idea de que el mencionado 
tipo de instrucciones es ideal para rea- 
lizar operaciones casi insiantaneas de 
traslado de pantallas, almacenaje de 
rutinas, etc..., que una vez ineiuidos 
solapando RAMTOP quedan a salvo 
de manipulaciones temerarias. Sea 
cual sea nuestra maniobra, sabemos 
que disponemos de una copia con los 
datos originales. Mas tarde con una 
simple llamada, mediante el comando 
LDIR, podemos restaurar al momen- 
to los datos en su posicion fuente. 

- LDDR (load, decrease and re¬ 
peat): La estructura es igual que en el 
caso anterior: Se carga el registro do- 
b!e HL con la direccion de origen, el 
DE con la posicion a donde se desea 
que se trasiaden, y e! BC con la lon- 
gitud de bytes a copiar, La diferencia 
estriba en que ahora los datos son co- 
locados en posiciones decrecientes de 
memoria, es decir, que una vez trala- 
dado el primer byte se tomara el in- 
mediatamente anterior en la memoria 
y se colocara en una posicion anterior 
a la de destino, y asf sucesivamente 
(no como antes, que almacenabamos 
los datos en posiciones sucesivas —en 
orden creciente-—). 

- LDI ( load and increase): Variante 
de LDIR, pero no repetitive. Sdlo 
trasiada un valor. 

- LDD ( load and decrease) : Seme- 
jante al anterior pero basado en 


LDDR. Para conseguir que sea fun- 
cionaimente igual que su homologo 
repetitivo, deberemos construir un bu- 
cle exterior al comando. 

Las posibilidades que nos brindan 
este tipo de instrucciones son inmen- 
sas, tanto por su sencillez de estrucu- 
ra y facil inclusion en rutinas, como 
por su gran eeleridad* 

Para una mejor comprensidn de las 
ideas expuestas hasta el momento, va- 
mos a presenter una serie de rutinas 
con cases practices que tu podras ir 
complicando a medida vayas asimilan- 
do los conceptos. 


MANEJANDO LA PANTALLA CON 

LDIR 


Sin duda aiguna, el manejo de los 
datos de pantalla es la idea mas tangi¬ 
ble que podemos presenter. La venta- 
ja de trasladar bytes de otra posicion 
al archivo de pantalla y atributos es 
que el resultado queda reflejado inme- 
diatamente. 

Seguro que mas de una vez has si- 
mulado, sin saberlo, un LDIR me¬ 
diante el BASIC, El principio consis- 
te simplemente en tomar datos 
(PEEK) y trasladarlos a otra zona 
(con POKE). Pero en cuanto ia canti- 
dad de datos a traladar es considera¬ 
ble, los efectos del tiempo empleado 
se dejan notar mucho. Por ejempio, si 
tomainos bytes de una posicion de la 
ROM al azar, y trasladamos el nume¬ 
ro necesario para llenar los dos archi- 
vos de representation visual, el resut- 
tado puede ser algo como: 

1 FOR F=Q TO 6911: LET A= 
PEEKC600Q+F) :P0KE(16384 
+F),A: NEXT F: PAUSE 0 

El tiempo empleado puede Ilegar a 
ser incomodo para un programa que 
se precie de rapido y agil. Si somos un 
poco habiles, aunque desconociera- 


14 INPUT 















Codigo itid«J uina 


mos la existencia de la instruccidn 
LDIR, nuestros conocimientos adqui- 
ridos nos permitirfan realizar el equi- 
valente en C.M., con las consiguien- 
tes ventajas (rapidez) y desventajas 
(complejidad). (Ver Rutina 1) 

El cargador BASIC sera: 

10 CLEAR 59999:FOR N=600D0 
TO 60020: READ A:P0KE 
N,A:NEXT N 

20 DATA 33,112,23,17,0,64,6, 


zacion del LDIR supone menor tiem- 
po de ejecucion y mayor ahorro de 
memoria. Ademas, bien mirado la ru¬ 
tina en su forma de cargador BASIC, 
se reduce a teclear solo 12 numeros, 
por lo que es la ideal para ser interca- 
lada en nuestros listados. (Rutina 2), 

10 CLEAR 39999:FOR G=40000 
TO 40011:READ S:P0KE G,S 
:NEXT G 

20 DATA 33,112,23,17,0,64,1, 
0,27,237,176,201 


lla de byte en byte con el LDIR (ha- 
cia la izquierda) o el LDDR (movi- 
miento a la derecha). El efecto se con- 
sigue situando la direction fuente en 
16384. y el destino en 16385 (un byte 
desplazado), ejecutando luego LDIR 
y consiguiendo el movimiento a la iz¬ 
quierda. Si hacemos: 



10 


0RG 

60000 


20 


ENT 

60000 


30 


LD 

HL,6000 


40 


LD 

DE,16384 


50 


LD 

B,27 


60 

8UCLE1 

PUSH 

BC 

< 

70 


LD 

B,0 

z 

80 

BUCLE2 

LD 

A,(HL) 

p 

90 


LD 

(DE),A 

D 

100 


INC 

HL 

te 

110 


INC 

DE 


120 


DJNZ 

BUCLE2 


130 


POP 

BC 


140 


DJNZ 

BUCLE1 


150 


RET 



;La rutina se carga a partir de La 
;posicion 60000. EL registro HL se fija 
;en La direccion fuente de donde van a 
;ser pasados Los datos a La 16384 que 
;es La pantaLLa. La estructura de Los 2 
;bucLes anidados nos permite dimensio- 
;nar eL tamano deL bLoque de bytes, en 
;este caso 27*256=6912. Los datos van 
;pasando por un registro intermedio, en 
;este caso el acumuLador, para poder 
;trasLadarse de La direccion apuntada 
;por eL HL (Linea 80) e introducirse en 
;eL contenido de La posicion senaLada 
;por DE (LD DE,(A)). Las Lineas 100 y 
;110 CINC) nos permiten desplazarnos en 
;memori a. 



10 

ORG 

40000 

- 

/ 




VI 

20 

ENT 

40000 

* 

Jr 




< 

30 

LD 

HL,6000 

r 

m 

/ 

"Fuente"=Lugar de extraccion 

de 

datos 

2 

40 

LD 

DE,16384 

* 

"Destino"=Lugar a donde van 

los 

datos 


50 

LD 

BC,6912 

V 

numero de bytes a trasladar 



rr 

60 

LDIR 


■ 

r 




■p 

70 

RET 


m 

/ 





27,197,6,0,126,18,35,19, 

16,250,193,16,244,201 

Una vez ejecutada la rutina con 
RANDOMIZE USR 60000, habras 
comprobado el tremendo abismo de 
tiempos existente entre ambos ejem- 
plos. 

Ahora nuestra intention es presen- 
tarte la forma verdadera de solucionar 
el problema. Aunque el ejemplo ante¬ 
rior puede ser muy didactico, la utili- 


Una vez ejecutado, entra en action 
RANDOMIZE USR 40000. 


LA FAMOSA UTILIZACION DEL 
LDIR EN «SCROLLINGS» DE 
PANTALLA 


No podiamos pasar sin comentar 
esta facilidad consistente en la posibi- 
lidad de realizar «scrolIings» laterales 
a base de mover el archivo de panta- 


LD BC,6144 Longitud del 

archivo de 
pantaLLa (sin 
at ri butos) 

LDDR eL movimiento 

sera a La derecha 

Si te fijas. el desplazamiento que 
podemos conseguir es de 8 en 8 pixels 
(un caracter), mucho mas brusco que 
el que se podia obtener con las instruc- 
ciones de giro y rotacion (donde se 


INPUT IS 






















' codigo nlaqoma 



RUTINA 3 

300 


DJNZ 

BUCLE2 





310 


LD 

DE,20479 





320 


LD 

HL,20478 

10 


ORG 

60000 

330 


LD 

B,64 

20 


ENT 

60000 

340 

BUCLES 

PUSH 

BC 

30 


LD 

HL,23693 

350 


LD 

BC,31 

40 


LD 

(HL),112 

360 


LD 

A,< DE) 

50 


CALL 

#0D6B 

370 


LDDR 


60 


LD 

A,2 

380 


INC 

HL 

70 


CALL 

#1601 

390 


LD 

C HL),0 

80 


LD 

BC,64 

400 


DEC 

HL 

90 

BUGLE0 

LD 

A,134 

410 


DEC 

HL 

100 


RST 

#10 

420 


DEC 

DE 

110 


INC 

BC 

430 


POP 

BC 

120 


LD 

A,3 

440 


DJNZ 

BUCLE3 

130 


CP 

B 

450 


LD 

DE,20480 

140 


JR 

NZ,BUCLE0 

460 


LD 

HL,2Q481 

150 


LD 

B,32 

470 


LD 

B,64 

160 

BUCLE1 

PUSH 

BC 

480 

BUCLE4 

PUSH 

BC 

170 


LD 

B,64 

490 


LD 

BC,31 

180 


LD 

DE,16384 

500 


LD 

A,(DE) 

190 


LD 

HL,16385 

510 


LDIR 


200 

BUCLE2 

PUSH 

BC 

520 


DEC 

HL 

210 


LD 

BC,31 

530 


LD 

(HL),0 

220 


LD 

A,(DE) 

540 


INC 

HL 

230 


LDIR 


550 


INC 

HL 

240 


DEC 

HL 

560 


INC 

DE 

250 


LD 

(HL),0 

570 


POP 

BC 

260 


INC 

HL 

580 


DJNZ 

BUCLE4 

270 


INC 

HL 

590 


POP 

BC 

280 


INC 

DE 

600 


DJNZ 

BUCLE1 

290 


POP 

BC 

610 


RET 



conseguian precisiones de desplaza- 
miento de urt pixel), 

Para no ser repetitivos, presenta- 
mos una version modificada que rea- 
liza dos tipos de scrolling dife rentes 
dentro de una misma pantalla (segun 
cual sea el tercio elegido). Para con- 
seguir el efecto mencionado (movi- 
miento de una zona de pantalla, y no 
entera), deberemos elegir cuidadosa- 
mente las direcciones fuente y desti¬ 
ne, as! como el numero de bytes a des- 
plazar. 

Utilizando este tipo de estructura 
simple de bucle, los bloques deberan 
ser de 2K —un tercio— a partir del co- 
mienzo del archivo de pantalla, ya que 
por la organizacion de dicha zona de 
la memoria, ese es el menor bloque 
grafico independiente que podmeos 
desplazar de forma coherente sin ob- 
tener resultados extranos (lo cual no 
quiere decir que por medio de una es¬ 
tructura anidada de bucles mas com- 
plicada, no podamos mover incluso fi- 
las de caracteres). 

Si observamos una de las subrutinas 
de movimiento (lineas 310 a 440) ve- 
mos que su estructura aun se aparta li- 
geramente de la indicada anterior- 
mente. La rutina en vez de ejecutarse 
de golpe, presenta un bucle que accio- 
na un LDDR para cada lmea de 32 
bytes del tercio central, con lo que te- 
nemos la posibilidad de almacenar el 
valor del byte que sale desplazado por 
el lateral, lmea 360 (LD A,(DE)), y 
ast poderlo hacer aparecer por el otro 
extremo. Para ello deberiamos susti- 
tuir la lmea «390 LD (HL),0» por «390 
LD (HL),A». Lo mismo podemos ha¬ 
cer con las Imeas 250 y 530 correspon- 
dientes a las otras dos rutinas de mo¬ 
vimiento. (Ver Rutina 3). 

El cargador BASIC sera: 

10 CLEAR 59999: FOR P=60000 
TO 60103: READ A: POKE 
P,A: NEXT P 

20 DATA 33,141,92,54,112,205 
,107,13,62,2,205,1,22,1 , 
64,0,62,134,215,3,62,3, 
184,32,247,6,32,197,6,64, 
17,0,64,33,1,64,197,1,31 , 
0,26,237,176,43,54,0,35, 
35,19,193,16,240,17,255, 


79,33,254,79,6,64,197,1, 
31,0,26,237,184,35,54,0, 
43,43,27,193,16,240,17,0 
,80,33,1,80,6,64,197,1,31 
,0,26,237,176,43,54,0,35, 
35,19,193,16,240,193,16, 
180,201 

Una vez ejecutado el cargador, la 
rutina se ejecuta con RANDOMIZE 
USR 60000. Las Imeas 30 a 140 corres- 
ponden a un grafico generado desde 
C.M.. Si se desea utilizar la rutina con 
cualquier otro dibujo, ejecutar RAN¬ 
DOMIZE USR 60025. 

Otro punto destacable en cuanto al 
funcionamiento de la rutina, es que re- 
sulta excesivamente rapida para cier- 
tas aplicaciones. Piensa que con las 
instrucciones de giro y rotation se po¬ 


dia conseguir una precision de despla- 
zamiento de hasta un pixel, y en nues- 
tro caso desplazamos bytes (8 pixels a 
la vez). Para obtener un control mas 
precise del tiempo de ejecucidn, los 
programadores en C.M. introducen 
los Uamados bucles de retardo, que 
presentan una estructura del tipo: 

10 LD B,0 

20 BUCLE DJNZ BUCLE 

o bien 

10 LD B,0 

20 BUCLE NOP 
30 DJNZ BUCLE 

donde NOP (no operation ) es una 
instruccion de perdida de tiempo, que 


16 INPUT 






















Codigo mdqo ,na 


gasta un ciclo de reloj e incrementa el 
PC [program counter), El registro B 
actua como parametro de retardo, y 
va pasando de 0 a 255, de 255 a 254,., 
hasta llegar de nuevo a 0, devolvien- 
do la ejecucion de la rutina a su cami- 
no habitual. Si consideramos excesivo 
perder 256 ciclos, podemos cargar el 
registro con otro numero, y asi ir tan- 
teando hasta conseguir la ralentiza- 
cion adecuada. 

Al igual que hemos desplazado el 
archivo de pantafla, podemos conse¬ 
guir desplazar los atributos, para lo 
cual deberemos situarnos en la posi¬ 
tion 22528 y mover los 768 bytes que 
ocupa esta zona de memoria. 


10 

ORG 

50000 

20 

ENT 

50000 

30 

LD 

DE,22528 

40 

PUSH 

DE 

50 

POP 

HL 

60 

INC 

HL 

70 

LD 

B,24 

80 

BUCLE PUSH 

BC 

90 

LD 

BC,31 

100 

LDIR 


110 

DEC 

HL 

120 

LD 

(HL),56 

130 

INC 

HL 

140 

INC 

HL 

150 

INC 

DE 

160 

POP 

BC 

170 

DJNZ 

BUCLE 

180 

RET 



La estructura es como en los casos 
anteriores, y falta s61o comentar que 
la linea 120 es incluida para ir «refe- 
renciando» cada nueva fila con tinta 
negra y pape) bianco. Es decir, cada 
vez que movieramos una fila hacia la 
izquierda, si no estuvieran las lineas 
110, 120 y 130, el caracter situado en 
la cojumna 32 de cada fila toman'a los 
atributos del primer caracter de la fila 
inmediatamente inferior, con io que 
no produciria sensation de scrolling , 
Prueba a introducir distintos valores 
en la h'nea 120 y comprobaras lo expli- 
cado. 

10 CLEAR 49999:FOR N=50000 
TO 50023:READ A:P0KE N,A: 
NEXT N 

20 DATA 17,0,88,213,225,35,6 
,24,197,1,31,0,237,176,43 
,54,56,35,35,19,193,16, 
241 ,201 

Un ejemplo puede ser: 

100 FOR 6*1 TO 704:PRINT 


PAPER INT (7*RND);INK 9; 

:NEXT G 

110 FOR J=1 TO 32: RANDOMIZE 
USR 50000:NEXT J 
120 INPUT PAPER 4; INK 0; 

" PAPEL? ";P: IF P<0 OR 
P>7 THEN GO TO 120 
130 INPUT PAPER 4; INK 0; 

” TINTA? ";T: IF T<0 OR 
T>7 THEN GO TO 130 
140 POKE 50016,(8*P+T):G0 
TO 100 

Con lo expuesto en este capi'tulo y 
en lo publicado en «Manejo de Panta- 
11 a (I)», el lector sera capaz de domi- 
nar cualquier rotation y desplaza- 
miento de pantaila utilizando cual- 
quiera de los dos metodos, el uno de 
mayor precision (con RRC) y el otro 
de mayor velocidad (con LDIR). 

En el proximo arttculo nos centra- 
remos en la explication de otras ven- 
tajas que se pueden obtener de la uti- 
lizacidn del LDIR (que son bastan- 
tes...). 


NO 0LVIDES EL TELEFONO... S 

Cuando, por cualquier motivo, nos escribas, no olvides in¬ 
dicar tu numero de telefono. Asi nos sera mas facil y rapido 
ponernos en contacto contigo. Gracias. 


GANADORES DE LOS MEJORES DE INPUT SINCLAIR 

En el sorteo correspondiente al numero 13 entre quienes escribisteis mandando vuestros votos a LOS 

MEJORES DE INPVT ban resultado ganadores; 



NOMBRE 

L0CALIDAD 

JUEGG ELEGIDO 

M* Angef Alarcia Siiiceo 

Barcelona 

Psi 5 T. Company 

J. Carlos Nazariegos Pena 

Pcnferrada (L©6n) 

Commando 

J. IVlamiel Alvarez Garrido 

Huelva 

Winter Games 

J. Carlos Gonzalez 

LI, de Aridane (S.C, Tenerife) 

Skyfox 

Marc Carballeira Marti 

Bellaterra (Barcelona) 

Phantomas 1 

Antonio Carbo Rato Is 

V. del Pedes (Barcelona) 

Winter Games 

Andres Menendez Fernandez 

Sevilla 

Commando 

Jorge Saavedra Diaz 

Barcelona 

Rambo 

T. Angel Rotger Cardona 

S, Luis Menorca (Baleares) 

Skyfox 

J. Josb Merino Merino 

Hernani (Guipuzcoa) 

Commando 


INPUT 17 





















;Yen a conocer el apasionante mundo de 


Un mundo que comienza con el espectacular SPECTRUM+2 y se cierra con 
e! revolucionario AMSTRAD PC 1512, pasando por toda la gama de los 
increibles CPC 464, CPC 6128 y los procesadores de textos PCW 8256 
y PCW 8512. Desde el ordenador de iniciacion a la informatica al mas 
completo equipo profesional, reunidos en una ocasion unica y singular, 
la Feria Internacional AMSTRAD-SINCLAIR. 

Las mas importantes empresas europeas se dan cita en Madrid para 
presentar sus mas recientes productos: 


Programas de accion, juego, aventuras... Programas educativos, de 
utilidades, lenguajes... Programas de gestion y profesionales... 


Perifericos, ampliaciones de memoria, tabletas graficas, digitalizadores, 
impresoras, redes de comunicacion, sintetizadores de voz, correo 
electronico, proceso de textos, tratamiento de imagen y graficos... 


Libros, revistas, cursos... 

Una oportunidad extraordinaria para "estar al dia”. 

iiVen de compras a la Feria Internacional AMSTRAD-SINCLAIR!! 























los ordenadores AMSTRAD y SINCLAIR! 



Patrocinada y organizada 
por AMSTRAD ESPANA. 
Horario continuo 
de 10,00 a 19,30 
Entrada: 250 Ptas. 

Sorteo de Ordenadores 
AMSTRAD y SINCLAIR 
ante los visitantes. 



1NTERNACIONAL 





12,13 y 14 de Diciembre 

Palacio de Exposiciones y Congresos 

P.° Castellana. 99.28046 MADRID 
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JUGANDO CON 
LAS PALABRAS (II) 


■ 

ADICION DE TEXTO 

■ 

CORRECCION DE ERRORES 

■ 

MOVIMIENTO DE PARRAFOS 

■ 

USO DEL PROGRAMA PARA UNA 

COMPOSICION PERFECTA 


Adkiones, emniendas, supresiones, 
todo es posible, Si quieres iograr una 
composition perfecta, empieza con un 
borrador y mejoralo a tu anto.jo* 


tu carta. Despues puedes analizar lo 
que has escrito, examinando el texto 
hacia arriba y hada abajo, Una vez 
que hayas decidido lo que tienes que 


vez, o simplemente para tener una co- 
pia de lo que en ella decfas. 

Las utilidades eontenidas dentro de 
este programa son analogas, aunque 



En la segunda parte de este arti'cu- 
lo, que constituye el nucleo principal 
del editor de textos, describimos la 
forma de utilization de las fundones 
de edition, 

Cuando hayas tecleado la parte de 
programa que figura al final del artf- 
culo, podras hacer pleno uso de las fa- 
cilidades de edition que dicho progra- 
ma te ofrece. 

Como el arte de escribir cartas se ha 
convertido en una cosa del pasado, en- 
contraras que las facilidades de edi¬ 
tion que ofrece el editor de textos re- 
sultan de gran ayuda a rnuchos nive- 
ies, En el nivel mas sencillo, puedes 
hacer correcdones ortograficas des- 
plazando tu plumilla electronics —el 
cursor— a la palabra equivocada, y su- 
primiendo o insertando los caracteres 
ad ecu ados* 

Si las faltas de ortograffa no son un 
problema para ti, pero en eambio te 
parece problematics Sa redaction de 
un texto, especialmente si sc trata de 
una carta importante, tal como una 
instancia para solicitar un empleo o 
una carta al director de tu banco para 
explicate las razones per las que inad- 
vertidamente has incurrido en un des- 
cubierto de tu cuenta corriente, este 
programa te resultara ideal. Puede ser 
que al escribir una carta, gastes gran 
cantidad de hojas en tu esfuerzo por 
encontrar las palabras adecuadas; nor- 
malmente las primeras frases suelen 
ser las que mas dificultades presentan. 
Si realizas la composition directamen- 
te sobre el teclado de tu ordenador, 
mantendras tu papelera vaefa y tu hu¬ 
mor intacto, En vez de pasar penas es- 
forzandote en encontrar la forma co- 
rrecta de empezar, puedes limitarte 
simplemente a hacer un borrador de 


corregir o suprimir puedes borrar e in- 
sertar palabras o frases hasta que fi¬ 
nal mentc llegues a tener una compo¬ 
sition perfecta. 

Una ventaja adicional de componer 
directamentc en pantalla es que pue¬ 
des archivar la carta para usarla otra 


bastante menos sofisticadas, a las de 
las modernas maquinas de fotocompo- 
sicion que se utilizan para la produc¬ 
tion de publicaciones como INPUT. Si 
conoces los metodos de composition 
utilizados antes de que se inventara la 
maquina de fotocomposicion, te resul- 




































tara facil apreciar las ventajas que te 
ofrece un paquete de utilidades de 
este tipo. 

El programa se presenta para ser 
usado con una unidad de cinta, por lo 
que si utilizas un microdrive asegura- 
te de que haces todas las modificacio- 
nes necesarias. 

Las caracterfsticas de la edition son 
casi identicas a las utilizadas para la 
edicion normal en BASIC, por lo que 
no necesitas un mode «editor» espe¬ 



cial Todas las correcciones v adicio- 
nes de textos se hacen en la zona baja 
de la pantalla que representa el area 
de trabajo, mientras que la parte su¬ 
perior sirve para representar el texto 
que esta en la memoria de la maquina. 

A1 editar texto que esta en el area 


de trabajo, puedes insertar caracteres 


utilizando las ted as I CAPS SHIFT! y (3] 
para desplazar el cursor hacia la iz- 
quierda y ICAPS shift I y JT| para des- 
plazarlo hacia la derecha. Una vez que 
el cursor esta en la position requerida 
puedes teclear las adiciones. Para bo- 
rrar, situa el cursor a la derecha del ca- 
racter que sobra y Pulsa [CAPS SHIFT 
junto con \a\. 


Para introducir en la memoria e! 
texto que esta en la zona de trabajo, 
pulsa | enter. | , Las lineas que tengan 
mas de 64 caracteres (que es el maxi- 
mo que puede contener el area de tra- 
bajo) se transfieren automaticamente. 
Sin embargo permanecen enlazadas 
con la siguiente linea a efectos de pre¬ 
sentation, a menos que se utilicen eo- 
mandos de edicion especiales. 

Las teclas de movimiento del cursor 
hacia arriba y hacia abajo se emplean 
para localizar lineas especificas del 
texto contenido en memoria; aparece 
una marea briilante debajo de la linea 
de texto seleccionada, visualizando fa 
zona que queda en la parte superior 
de la pantalla, Puedes copiar dicha li- 
nea en el area de trabajo con la fun- 
cidn normal EDIT, pulsando 1 shift l 
v (T| y a continuacidn editando de la 
forma anteriormente descrita, Para 
suprimir una linea de texto que ya esta 
en la memoria, pulsa [CAPS SHIFT] y 
SYMBOL shift | al mismo tieinpo. 


Para examinar el texto contenido en 
la memoria, usa las teclas de movL 
rniento de cursor hacia arriba y hacia 
abajo, l caps shift] y [7] y I caps 


SHIFT] y [T)- El texto se movera hacia 
arriba o hacia abajo linea a linea. 


Teclea 


para Spectrum ZXS1 


1000 REM VISUALIZACION DE 
PANTALLA 

1005 PLOT 0,13: DRAW 255,0; 

PLOT 0,14; DRAW 255,0 
1010 PRINT AT 0,0;; FOR N=P- 
10 TO P+8 

1020 IF N<1 OR N>200 THEN 
PRINT $$: GO TO 1050 
1025 IF N=P THEN PRINT 
1030 PRINT TSCN) 

1040 POKE 22528+320,120 
1050 NEXT N 


1060 RETURN 

2000 REM ENTRADA DE TEXTO 
2010 LET LET J$= , ‘" 

2015 PRINT #1;AT 0,0;1$; 
FLASH 1; BRIGHT 1;" 
FLASH 0; BRIGHT 
0;J$;" " 

2020 PAUSE 0: LET A$=INKEY$: 
IF A$= ,M ' THEN GO TO 
2020 

2025 BEEP .01,20 
2030 IF A$<CHR$ 32 THEN GO 
SUB 2500 

2040 IF A$>CHR$ 31 AND A$< 
CHR$ 123 THEN LET I$= 
I$+A$ 

2042 IF A$=CHR$ 13 AND B=EXT 
-6 THEN PRINT #1;AT 0, 
0;S$;S$; FLASH 1; 
"FICHER0 DE TEXTO LLEN0 
I BEEP 2,10: RETURN 
2045 IF A$=CHR$ 13 OR LEN 1$ 
+LEN J$=64 THEN PRINT 
#1;AT 0,0;S$;S$;S$: LET 
I$=I$+J$: GO TO 2100 
2050 IF A$=CHR$ 14 THEN 
RETURN 

2052 IF A$=CHR$ 6 THEN INPUT 
"QUE CADENA?", LINE Z$; 
IF Z$= mi THEN GO TO 
2052 

2053 IF A$= CHR$ 6 THEN LET 
P=4: GO SUB 8000 

2054 IF A$=CHR$ 4 THEN GO 
SUB 8000 

2055 IF A$=CHR$ 5 THEN GO 
SUB 8500 

2060 GO TO 2015 
2100 IF LEN I$>32 THEN GO 
TO 2150 

2105 FOR N=B+1 TO P 
STEP -1 

2110 LET T$<N+1)=T$CN) 

2120 NEXT N 

2130 LET TSCN+1 )=I$; LET P=P 
+1; LET B=B+1 
2140 GO SUB 1000: GO SUB 
2500: GO TO 2000 
2150 FOR N=B+1 TO P 
STEP -1 

2160 LET T$(N+2)=T$(N): LET 
T$(N+3)=T$C N+1 ) 

2170 NEXT N 

2180 LET T$(N+1)=I$C TO 32): 
LET T$(N+2)=I$(33 TO ): 


INPUT 21 









































2230 GO SUB 1000 
2240 RETURN 

2500 REM C0DI60S DE CONTROL 
2520 IF A$=CHR$ 10 AND P<B-2 
THEN LET P=P+1: GO SUB 
1000 


2530 IF A$=CHR$ 11 AND 
P>T+3 THEN 
LET P=p-1 : GO SUB 
1000 

2540 IF A$=CHR$ 12 
AND LEN 1$ >0 
THEN LET I$=I$( TO 
LEN I$-1) 

2550 IF A$=CHR$ 8 AND LEN 1$ 
>0 THEN LET J$=I$(LEN 
I$)+J$: LET I$=I$C TO 
LEN I$-1) 

2560 IF A$=CHR$ 9 AND LEN J$ 
>0 THEN LET I$=I$+J$ 
(1): LET J$=J$(2 TO ) 
2570 IF A$<>CHR$ 7 THEN GO 
TO 2580 

2572 LET J$=T$(P-1): LET I$= 

PRINT #1;AT 0,0;S$; 
S$ 

2575 IF J$(LEN J$) = CHR$ 32 
THEN LET J$=J$( TO LEN 
J$-1): IF LEN J$>0 THEN 
GO TO 2575 

2580 IF A$=CHR$ 15 AND P>4 
THEN GO SUB 2200 
2690 RETURN 
3000 REM COLOR 
3010 PRINT AT 10,4;"CODIGO 
DE COLOR <0-7)" 

3020 PAUSE 0: LET A$=INKEY$: 
IF A$<"0" OR A$>"7" THEN 
GO TO 3020 

3030 PAPER VAL A$: BORDER VAL 
A$: CLS : RETURN 


LET P=P+2: LET B=B+2 
2190 GO TO 2140 
2200 LET P=P-1 : FOR N=P TO 
B+1 

2210 LET T$<N)=T$CN+1) 

2220 NEXT N 
2225 LET B=B-1 


22 INPUT 






















P 

Ordena tus propias ideas 


Le sacaras partido a tu ordenador 




ASTRONOMIA: 

EL UNIVERSO EN TU ORDENADOR 
Maufk* Qavin 



DISENO DE GRAFICOS 
V VIDEOJl'EGOS 
Tratamiento en tres dimensiones 
Ian 0. Angel y Brian J. Jones 
3392ptas. 


ASTRONOMIA 

El universo en tu ordenador 
Maurice Gavin 
1378ptas. 


JUEGOS GRAFICOS 
DE AVENTURA 
Richard Hurley 
1.484ptas. 


PROGRAMACION AVANZADA 
DEL ZX SPECTRUM 

Rutinas de la ROM y sistema 
operativo 
Steve Kramer 
1.272ptas. 


LENGUAJE MAQUINA 
AVANZADO PARA 
ZXSPECTRUM 

David Webb 
1.484 ptas. 

“SPRITES” V GRAFICOS EN 
LENGUAJE MAQUINA 

(ZX Spectrum) 

John Durst 
1337ptas. 


PROGRAMACION DEL 
INTERFACE IY MICRODRIVE 

Agustin Nunez Castain 
1.168 ptas. 

EL L1BR0 GIGANTE DE LOS 
JUEGOS PARA ZX SPECTRUM 

Tim Hartnell 
1.431 ptas. 


TU PRIMER LIBRO 
DEL ZX SPECTRUM 

J. DewhirstyR.Tennison 
848ptas. 

SISTEMAS EXPERTOS 

Introduccion al diseno 
y aplicaciones 
Tim Hartnell 
2.120 ptas. 


PROGRAMACION DEL Z80 

Rodnay Zaks 
2.915ptas. 

SIMULAC10NES 

Replica la realidad con tu 
ordenador 
Tim Hartnell 
1.643ptas. 

INTELIGENCIA ARTIFICIAL: 

Conceptos y programas 
Tim Hartnell 
1.484ptas. 


r 


□ Les ruego me enWen el catalogo de su editorial. 

□ Les ruego me envien [os sisuienies titulos: 


i 


TOTAL 


□ Adjunto talon bancario a 
GRUPO DISTRIBUIDOR EDITORIAL. S A 


□ Pagare contrarrembolso (+ 140 pesetas de gasto de envib). 

Nombre___ 

Profesion____ 

Direccion-.--- 

C. P. __ Localidad _ 


ANAYA 


IMULTIMEDIAI 



Adquieralos en su librena habit jai. 

Si no le es posible o desea que 3e enviemos nuestro catalogo. envfe este cupon a: 
Apdo. tie Correos ]4632, Ref.D, de C28080 MADRID’ 

ComerciaJiza: GRUPO DISTRIBUIDOR EDITORIAL. 




Provincial 






w 






h 5 

































PLUS 2, EL SINCLAIR 

DE AMSTRAD 


■ 

DESCRIPCION DEL EQUIPO 

■ 

DOS VERSIONES 

DE BASIC 

■ 

EL EDITOR DE PANTALLA 

■ 

NUEVO TECLADO 



Cayo como un botmbazo. La noticia 
era clara: el nuevo rey Midas de la mi- 
croinformatica acababa de hacerse 
dueno de las miserias que arrastraba 
Sir Clive. Desde su negativa campana 
de ventas, el pasado diciembre en las 
islas britanicas, tuvo que afrontar una 
dificil situation financiera que fue sal- 
vando como pudo. 


bleado externo —como consecuencta 
de su mayor compacidad— y la incor¬ 
poration de la unidad de cassettes fue- 
ron factores decisivos. Para colmo, el 
monitor se incluyo en el precio. Simi- 
lares derroteros ha seguido Alan Su¬ 
gar al hacerse cargo de los derechos 
para el denostado Spectrum. A simple 
vista, el Plus 2 tiene un aspecto fisico 
que recuerda claramente a los mode- 
los domesticos de Amstrad. 


dicar la existencia de alimentation 
electrica. 

El teclado tiene un aspecto mas dia- 
fano y limpio. Las teclas Uevan una o 
dos leyendas, por contra a las cuatro 
o cinco del modelo 48. 

El diseno de la carcasa hace que el 
teclado adquiera una cierta inclina¬ 
tion, que facilita su manejo. 

En el lateral izquierdo se han incor- 
porado dos ports para joysticks, cuyo 
formato es el clasico D de nueve pati- 
Uas, inicialmente adoptado por Atari 


y seguido por un gran niimero de fa¬ 
bricates. Sin embargo, sobre eilos se 
indica que unicamente admite «joys¬ 
ticks Sinclair SJS1», aunque en el ma¬ 
nual aparece la correspondencia de 
conexiones para que el usuario pueda 
hacer las adaptations correspondien- 
tes en su propio joystick. Les sigue un 
boton pulsador semioculto, el conoci- 
do Reset, que ha sido bautizado como 
«Reinic». 

En la parte posterior se han incor- 
porado mas conectores de los previa- 
mente existentes en el 48. A la izquier- 
da encontramos el conector para el ca- 


DESCRIPCION DEL EQUIPO 


Ahora ilega el Spectrum revitaliza- 
do, con una nueva estrategia que le 
propone como ordenador para juegos 
a un precio razonable. La gran canti- 
dad de programas existentes le situan 
en una position de privilegio. 

El poderoso rival que le arrebato su 
cetro al Spectrum fue, sin duda, el 
CPC de Amstrad. La ausencia de ca- 


A primera vista, el aspecto del Plus 
2 recuerda al atractivo QL de Sinclair. 
La carcasa de ptastico gris sigue con- 
servando las estrias longitudinales del 
48 Plus. Resalta la incorporation de la 
unidad de cassettes, Datacorder, con 
sus seis tecias de manejo. 

Otra novedad es la incorporation 
de un testigo rojo, un LED, para in- 
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ble que procede del transformador de 
alimentacion, Le sigue el peine de eo 
nexiones del slot de expansion, que es 
en realidad la propia tarjeta de circui- 
to impreso utilizada por todo el siste- 
ma. Por ella se accede directamente a 
I os buses del ordenador y ha si do re- 
bautizada como «E/S (Ent rada/S a lid a) 
Expansions 

Dos coneclores atipicos, ya emplea- 
dos en el QL, responden a los interfa¬ 
ces RS232/MIDI y teclado numerico 
separado, El RS232 sirve para la 
transferencia de datos en mode serie, 
y se ha previsto para trahajar con im- 
presoras que observen este estindar, 
si bien el cable de union deber ser es¬ 
pecial. 

MIDI es un estandar de am p i i a di¬ 
fusion, adoptado por los fabricantes 
de equipos musieales electronicos para 
comunicarlos entre si. Con £1 es posi- 
ble ejercer su control desde el Spec¬ 
trum. 

Un coneetor DIN de ocho polos 
proporciona dos alternativas a la sali- 
da de video para monitor. Por un [ado 
se dispone de la senal compuesta se- 
gun la normativa PAL. Por el otro 
lado se obtienen por separado las se¬ 
nates de sincronismo compuesto (ver¬ 
tical mas horizontal), el sincronismo 
vertical y las seriales azul, verde y rojo 
(RGB). 

La senal de video modulada, para 
atacar la entrada de UHF de un tele¬ 


visor domestico, esta presente en un 
coneetor coaxial independiente. 

Finalmente un jack, de los habitual- 
men te utilizados en equipos musiea¬ 
les, proporciona una salida de audio, 
que puede atacar la entrada de un am- 
plificador externo. 


CARACTER1STICAS TECNICAS 


LI Plus 2 utiliza cl mismo procesa- 
dor que sus predecesorcs. El traditio¬ 
nal Z80 sigue trabajando con su mar- 


capasos de cristal de cuarzo de 3,54 
Mhz, gestionando 32 Kbytes de ROM 
y 128 Kbytes de RAM, incluidos en 
dieciseis chips de sesenta y cuatro bits 
(16*64K/8=128K), 

El chip de sonido, AY-3-8912, es ei 
mismo que utilizan los microordena- 
dores MSX. Se trata de un autentico 
sintetizador de sonido, capaz de ex- 
tenderse a lo largo de ocho octavas y 
ires can ales separados. Ademas se 
puede programar la envolvente con 
ocho distintas alternativas y, recu- 
rriendo a trucos de programacion. es 
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posible combinarlas para obtener ma¬ 
yor numero. 

La formula de programacion del 
chip de sonido es muy similar a la uti- 
lizada en los MSX, 

La resolution de pantalla en modo 
texto es de treinta y dos earacteres por 
ventidos lineas. 

En modo grafico de alta resolution, 
la pantalla se eonforma en eiento se- 
tenta y seis por doscientos cincuenta y 
seis puntos. En este modo se pueden 
utilizar echo colores. 


DOS VERSIONES 
DE BASIC 


En fund on del incremento de me- 
moria hasta 128 Kbytes de RAM, es 
obligado que exista una version actua- 
lizada del BASIC que permita utilizar 
los nuevos recursos del ordenador. 
Este es el case del 128 BASIC, 

Por otro lado, el Plus 2 ofrece com- 
patibilidad total con el modelo de 48 
Kbytes y por ello existe tambien el 
lenguaje 48 BASIC. Igualmente es cie- 
to que tiene limitaciones para utilizar 
los recursos del Plus 2, por ejemplo, 
sdlamente se puede acceder con el a 


48K de memoria (eomo parece logi- 
co), 

El chip sintetizador de sonido, los 
interfaces MIDI, RS232 y para tecla- 
do numerico permanecen inaccesibles 
desde el. El complete y nuevo editor 
del texto BASIC en pantalla tampoco 
es utilizable, Todo lleva a la misma 
conclusion: este BASIC se ha imple- 
mentado para aproveehar los progra- 
mas desarrollados en los modelos an- 
tenures, 

En el 128 BASIC se transcriben los 
programas letra a letra, desaparecien- 
do la asoeiacion habitual de una tecla 
a una palabra clave del BASIC. Este 
modo sigue respetandose cuando se 
trabaja con el 48 BASIC, Por ello se 
debera consultar el manual o memori- 
zar las correspondences, 

Las unicas excepciones son los eo- 
mandos relacionados con e! manejo y 
ejecucidn de programas desde casset¬ 
te, las palabras LOAD, CODE y 
RUN aparecen en las ted as [T| , (_R_ 

e 0. 

A nivel del lenguaje BASIC, la ver¬ 
sion 128 permanece prdcticamente 
inalterada, salvo los comandos refe- 
rentes al sonido y el manejo de! inter¬ 
face MIDI. Tambien aparece el con- 


cepto de «disco de siIicio», que son 64 
Kbytes de RAM que actuan como un 
sistema de almacenamiento masivo 
temporal, cuya velocidad de acceso es 
muchfsimo mayor que en el caso de 
una cinta o diskette. 


NUEVO EDITOR 
DE PANTALLA 


Tal vez la aportacion del 128 BA¬ 
SIC es el programa editor de pantalla, 
que asume la tarea de hacer mas faeil 
la escritura de programas. La tecla 
EDIT visualiza un menu, que per- 
mite hacer cosas tales como rename- 
rar ias line as de un programa cualquie- 
ra, comenzando desde 10 incremen- 
tando en otros diez los numeros de lf- 
nea sucesivos, aunque se pueden ob¬ 
tener otros incrementos definiendo al- 
gunos POKEs. 

La opcion titulada «PantaIla» pro- 
porciona una ventana de trabajo de un 
tamario correspondiente a dos iineas 
de texto, destinada a simplifies! el tra¬ 
bajo de eseribir y editar lineas de pro¬ 
grama. El manejo es infinitamente 
mas comodo que en los Spectrum pre- 
cedentes. Las lineas del programa van 
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desfilando, visualizandose siempre 
dos de el las, ordenadamente por la 
ventana a medida que avanzamos el 
cursor con las teclas hada arriba o 
abajo. 

Para editar la linea que aparece en 
la ventana es posible desplazar el cur¬ 
sor libremente por ella, de modo simi¬ 
lar a como se trabaja en los Commo¬ 
dore. De esta manera no es preciso re- 
correr una linea desde el principio has- 
ta llegar al lugar deseado. 

Desde este menu se puede acceder 
directamente a la impresora, que lis- 
tara el programs en curso. 


NUEVO TECLADO MAS 
RACIONAL 


La diferencia mas notable del nue- 
vo modelo, con respect o al Spectrum 
Plus clSsico, es la mayor calidad del te- 
clado, En este caso las teclas dejan de 
ser una pieza de plastico que reposa 


sobre una burbuja de goma, para uti- 
Hzar pulsadores con mayor recorrido 
que emplean muelles para recuperar 
su posicion inicial. Por lo demas, los 
arcaicos contaetos electricos que com- 
pletan el teclado son de la misma na- 
turaleza: dos laminas de circuito im- 
preso flexible con pistas eonductoras 
trazadas en hileras perpendiculares 
entre si, formando una matriz, y una 
tercera lamina con orificios coincident 
tes con las teclas, que facilitan el con- 
tacto entre las pistas bajo la preside 
del dedo. 

Otra novedad es la total traduction 
de las levendas del teclado al Castella¬ 
no. Se han incorporado la ene, el sim- 
bolo Pt y la interrogation de aperture 
de frase. 

Las teclas para el movimiento del 
cursor siguen en la misma disposition, 
alineadas a ambos extremos de la ba- 
rra espaciadora. 

La configuracidn de las teclas es la 
misma, si bien algunas han cambiado 


de dimension, tales como Borrar 
(Delete) y Extra (Extend Mode). 


OTRAS SORPRESAS 


Muchas veces se dijo que el mi- 
croordenador era el sustituto natural 
de la calculadora, Sin embargo resuL 
ta engorroso para tal trabajo per la ne- 
cesidad de programar antes de poder 
realizar un calculo. 

Con la utilidad «Calculator», el Plus 
2 actua de modo directo, sin precisar 
lenguaje de programaciom 

En la nueva etapa del Spectrum, el 
fabricante se toma la molestia de ofre- 
cer garantias a sus usuarios, Por elio 
ha creado un sello de calidad que ga~ 
rantice la idoneidad de los programas 
comerciales. Despues de someterles a 
rigurosas pruehas, concede el derecho 
a utilizar el simbolo a los tftulos que 
pasen el control, quedando asi homo- 
logados. 
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BUENO 

COMO EL ORO 


■ 

UN JUEGO DE ESTRATEGIA 

EN LOS NEGOCIOS 

■ 

DESCRIPCiON DEL JUEGO 

■ 

INGRESOS Y GAST0S 

■ 

LA RUTINA DE ROBO 


Vive los riesgos y las satisfacciones 
de los grandes negocios eon el juego de 
la mina de oro de INPUT. ^Estas se- 
giiro de poseer La habilidad y el buen 
juicio necesarios para adoptar las de¬ 
cisions correctas y actuar eonsecuen- 
temente con ellas? 

La Mina de Oro es un juego de es¬ 
trategia eomercial en el que tu haces 
el papel del propietario de una empre¬ 
ss minera. Tu mision es hacer que la 
compania prospere lo mejor posible. 
Durante el desarrollo del juego se te 
iran presentando constantemente una 
serie de opciones entre las que tienes 
que elegir, y los destinos de la compa- 
nfa dependen de tu habilidad para to- 
mar decisiones prudentes e imaginati- 
vas, 

A1 igual que los juiegos de aventu- 
ras. los de estrategia en los negocios 
generalmente se escriben mtegramen- 
te en BASIC, no siendo necesaria la 
alta velocidad del codigo maquina. 
Ademas. debido a que no requieren 
grandes secciones de texto t es relati- 
vamente sencillo escribirlos en versio- 
nes para ordenadores que no tengan 
much a me maria. En este caso hemos 
adornado el juego de la Mina de Oro 
ahadiendole unos graficos que mues- 
tren el progreso de la prospecdon rm- 
nera, con lo cual aumcntan bastante 
las necesidades de memoria, si bien 
todavia te cabe el programa en un 
Spectrum de 16K. 

El programa es con todo reiativa- 
mente largo, por lo que lo hemos di- 
vidido en dos partes. En este articulo 
veremos la forma dc establecer el nu- 
cleo del juego y en ef proximo vere¬ 
mos algunas de las rutinas que neeesi- 
tas para que el juego se pueda real- 
mentc jugar, 

Cuando hayas introducido todo el 
listado que figura mas adelante, haz 
un SAVE para guardarlo hasta la pro- 
xima vez. 


DESCRIPCIOIM DEL JUEGO 


Al empezar el juego, tus dos pose- 
siones son la empresa minera y 2 mi- 
llones de dolares en efectivo. Tienes 
que invertirlos inteligentemente en la 
exploracidn del metal precioso. El ob- 
jetivo del juego es ganar tanto dinero 
como sea posible en 30 pasadas. Pue- 
des jugar tu solo o contra un oponen- 
te que tenga el control de una compa¬ 
nia rival, 

En cada pasada se te presentan unas 
cuantas altemativas entre las que eie- 
gir. Antes de empezar con las labores 
de mineria, debes encontrar un empla- 
zamiento adecuado. por lo que has de 
invertir para tener un informe de pros- 
pecciones. Con el informe anterior, 
podras estimar tus posibilidades de en¬ 
contrar oro, su profundidad probable 
y la cantidad esperada, Tienes que de- 
cidir si merece la pena o no iniciar la 
explotacion. 

La mineria es muy cara, por lo que 
podrias decidlr inversiones en invest!- 
gacidn y desarrollo de nuevos equipos 
que te permitan reducir tus costes. O 
tal vez es mejor iniciar directamente 
las excavaciones, solo tu puedes deci- 
dir. 

Si das comienzo a las excavaciones, 
hay una representation grafica que te 
permitira apreciar el progreso de la 
mina. Si no se encuentra oro, puedes 
elegir entre continuar cxcavando o 
abandonar la mina e iniciar un nuevo 
trabajo, 

A lo largo del desarrollo, hay otros 
dos factores que entraran en juego. 
Cuando encuentres oro, puedes elegir 
entre almacenarlo en tus camaras aco- 
razadas o venderlo en el mercado de 
metales preciosos. Puede que sea ra- 
zonable conservarlo, en d supuesto de 
que no necesites dinero urgentemen- 
te, esperando hasta que alcance un 
precio mas ventajoso; el precio del oro 


esta fluctuando durante todo el juego. 
Pero ten cuidado, porque hay ladro- 
nes de oro y cuanto mayor cantidad 
tengas almacenada, mas tentador es su 
premio. 

En la segunda parte de este artfeu- 
lo veremos eon mayor profundidad los 
trabajos asociados con el juego. Pero 
ahora teclea ya la primera parte del 
programa. 


5 BORDER 6: PAPER 6: INK 0: 
CLS 

10 PRINT AT 9,2;"CUANTQS 
JUGADORES? (1 0 2)' r : LET 
A$=INKEY$: IF A$= mr THEN 
GO TO 10 

20 IF A$< f, 1 u OR A$>"2' r THEN 
GO TO 10 

30 LET P=VAL A$: LET N0P=P 
40 DIM A(2,6): DIM C(2,5): 
DIM A$(P,8): DIM RC2): 

LET ER=10000 

50 LET RC1>=0; LET Rt2)=0: 
LET AC1,1)=2000000; LET 
A(1,25=2000000: LET AC2, 

1)-2000000: LET A(2,25= 
2000000: LET A(1,3)=0: 

LET A(2,3)=0: LET AC1,4) 
=100000: LET A(2,4)= 
100000: LET AC1,5)=0: LET 
A(2,5)=0: LET AC1,6)=0: 
LET AC2,6)=0: PRINT 
70 FOR N=1 TO P: INPUT 

"N0MBRE DEL JU6AD0R ,f ;(N) 
; ,, ? tl , LINE A$(N): NEXT N 
200 FOR N=1 TO 30: FOR M=1 
TO NOP 

202 BORDER 7: PAPER 7: INK 
0: CLS 

210 PRINT PAPER 6;N: PRINT 
PAPER 1; INK 6;AT 0,4; 
M C2*ESPACI03PI I N AC3* 
ESPACI03D E:3*ESPAGI03 
0 R 0E2*ESPACI0] H 
220 PRINT 1 TAB 16;A$C1)j: IF 
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N0P=2 THEN PRINT TAB 
24;A$(2); 

230 PRINT "'ACTIVOS TOT. $"; 
TAB 15;AC1,1);: IF N0P=2 
THEN PRINT TAB 24;A 
< 2,1 >; 

240 PRINT ' "CAJA EFECTIVO $" 
;TAB 15;A<1,2>;: IF NOP 
=2 THEN PRINT TAB 24;A 
< 2 , 2 ); 

250 PRINT 1 "CANTIDAD ORO KG" 
;TAB 15;A(1,3);: IF NOP= 


2 THEN PRINT TAB 24;A 
(2,3); 

260 PRINT T "COSTES MINER. $" 
;TAB 15;A(1,4);: IF NOP= 
2 THEN PRINT TAB 24;A<2 

4 ) • 

270 PRINT 1 "NUM.DE MINAS"; 
TAB 15;A(1,5);: IF N0P=2 
THEN PRINT TAB 24;A 
(2,5); 

280 PRINT "’PROFUND. MINA M" 
;TAB 15;A(1,6);: IF NOP= 


2 THEN PRINT TAB 24;A 

( 2 , 6 ); 

300 PRINT " PAPER 4; INK 0; 
"PRECIO DEL ORO:-"; 

PRINT "$";ER;" POR KG DE 
ORO" 

400 PRINT 1 PAPER 5;">-";A$ 
(M) 

500 PRINT PAPER 2; INK 7; 
"1";; PRINT 
"-INVESTI6ACI0N Y 
DESARROLLO" 






















510 PRINT PAPER 2; INK 7; 
"2";: PRINT 
"-EXPL0RACI0N E 
INFORME" 

520 PRINT PAPER 2; INK 7; 
"3'';: PRINT "-INCR. 
PROFUN.MINA EN 200 
METROS" 

530 PRINT PAPER 2; INK 7; 
"4";: PRINT "-PRECIO 
DEL ORO EN DOLARES” 

540 PRINT PAPER 2; INK 7; 
"5";: PRINT 
"-PASO" 

550 PRINT : PRINT FLASH 1; 
PAPER 1; INK 6;"TECLEA 
UNA INSTRUCCION" 

600 LET I$=INKEY$: IF 1$="" 
THEN GO TO 600 
610 IF I$<"1" OR I$>"5" 

THEN GO TO 600 
620 GO SUB VAL I$*1000 
700 IF A(M,2)<0 THEN GO TO 
7000 

710 LET ER=ER+INT (RND* 

1000J-200 

720 IF INT (RND*1600)-A 
(M,3)<0 THEN GO SUB 
900 

740 LET A<M,1)-A(M,2)+A(M,3) 
*ER 

750 PAPER 7: INK 0: BORDER 7 
: CLS 

790 NEXT M 
800 NEXT N 

810 PAPER 5: BORDER 5: INK 
0: CLS 

820 PRINT FLASH 1; INK 7; 
PAPER 2;AT 6,10;" FIN 
DEL JUEGO " 

830 PRINT 'TAB 5;"ACTIV0S 
TOT.DE ";A$(1>: PRINT 
TAB 11;"$";AC1,1) 

840 IF N0P=2 THEN PRINT 

'TAB 5;"ACTIV0S TOT.DE " 
;A$C2): PRINT TAB 11;"$" 
;A(2,1) 

850 PRINT ' 1 PAPER 2; INK 6; 
FLASH 1;TAB 2;"CUALQUIER 
TECLA PARA JUGAR DE 
NUEVO" 

860 IF INKEYSO"" THEN GO TO 
860 

870 IF INKEY$="" THEN GO TO 
870 


880 RUN 

900 PAPER 2: INK 6: BORDER 
2: CLS 

905 LET JK=INT <RND*100)+50; 
IF JK>A(M,3) THEN LET 
JK=A(M,3) 

910 PRINT PAPER 6; INK 1; 
FLASH 1;AT 9,8;"C3* 
ESPACI03 R 0 B 0C3* 
ESPACI03" 

920 PRINT : PRINT INK 7; 
"L4*ESPACI03HAN SIDO 
ROBADOS ";JK;"KG DE ORO": 
LET A(M,3)=ACM,3)-JK: LET 
A(M,1) = AC M,1>- 
(JK*ER) 

930 FOR X=1 TO 35: BEEP .05, 
40: BEEP .05,20: 

NEXT X 

940 BORDER 7: PAPER 7: INK Q: 
CLS : RETURN 

Para empezar, la Ifnea 10 te pide 
que especifiques el numero de jugado¬ 
res y la Ifnea 20 comprueba que la res- 
puesta suministrada a la sentencia IN¬ 
PUT esta dentro del margen permiti- 
do. La Ifnea 30 define p y nop con 
arreglo al numero de jugadores. 

En la Ifnea 40 se dimensionan una 
serie de matrices juntamente con el 
precio del oro, er. La matriz a se uti- 
liza para almacenar informacion acer- 
ca de los activos pertenecientes a cada 
uno de los jugadores y las minas; la 
matriz c se utiliza para almacenar in¬ 
formation sobre las minas; la matriz 
a$ contiene los nombres de los juga¬ 
dores y la r se utiliza para indicar si se 
han iniciado o no las labores de mine- 
rfa en la mina considerada por el ju- 
gador. La Ifnea 50 inicializa los acti¬ 
vos y el estado de la mina para ambos 
jugadores. Se asigna el valor 0 a r(l) 
y r{2) para indicar que todavfa no se 
ha iniciado la minerfa en la primera 
mina en la que se van a hacer pros- 
pecciones. Otros valores asignados 
son los siguientes: a(l,l) y a(2,l) son 
los activos totales de cada jugador; 
a( 1,2) y a{2.2) son los valores de efec- 
tivo de cada jugador; a( 1.3) y a(2,3) 
son las cantidades de oro de cada ju¬ 
gador: a(l ,4) y a(2,4) son los costes de 
la minerfa; a{1.5) y a(2,5) son ios nu- 
meros de minas y finalmente a(l,6) y 


a(2,6) son las profundidades de cada 
mina. La Ifnea 70 permite introducir 
el nombre de cada jugador. 

El programa contiene un par de bu- 
cles FOR ... NEXT, que empiezan en 
la Ifnea 200 y terminan en las Ifneas 
790 y 800. Estos son los bucles que de- 
finen el menu principal de opciones y 
la presentation de los ingresos de la 
compama debidos a la minerfa, los 
costes de extraction, etc. 

La variable n cuenta el numero de 
pasadas realizadas por el jugador. La 
variable nop sirve para asegurarse de 
que ambos jugadores llegan hasta 30 
pasadas. Mas adeiante el programa 
utiliza estas mismas variables para ase¬ 
gurarse de que se presentan los acti¬ 
vos de ambos jugadores. etc. 

En la Ifnea 202 se definen los colo¬ 
res de la pantalla. La Ifnea 210 presen- 
ta el tftulo del juego: MINA DE 
ORO. La Ifnea 220 es la encargada de 
presentar el nombre o nombres de los 
jugadores. Cuando se elige la option 
de dos jugadores, solo se presenta el 
apellido. 

Las Ifneas 230 a 300 presentan los 
valores de ACTIVOS TOTALES, 
CAJA EFECTIVO, CANTIDAD EN 
ORO, COSTES DE MINERIA, NU¬ 
MERO DE MINAS, PROFUNDI- 
DAD DE LA MINA Y PRECIO 
DEL ORO. Si hay dos personas ju- 
gando, se presentan los valores de am¬ 
bos en los lugares apropiados, exami- 
nando los valores de la variable nop. 

La Ifnea 400 presenta el nombre del 
jugador a quien le toca el turno en 
cada momento. Las ifneas 500 a 540 le 
brindan al jugador las opciones Inves¬ 
tigation y Desarrollo, Exploration e 
Informe, incrcmento de la profundi- 
dad de la mina en 200 metros, Precio 
del oro en dolares o pasar. La Ifnea 
550 invita al jugador a que teclee una 
instruction. 

Las Ifneas 600 a 620 utilizan la fun- 
cion INKEYS para tener en cuenta la 
election del jugador. comprobar que 
se trata de una election valida y 11a- 
mar a la subrut ina encargada de su 
proeesamiento. 

La Ifnea 700 examina si ei valor to¬ 
tal de los activos ha cafdo por debajo 
de cero, forzando un salto a la rutina 
de «tinal de juego» cuando asf ocurre. 
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En el proximo capitulo veremos la li- 
nea 7000 y siguientes* La lmea 710 
introduce tluctuaciones aleatorias en 
el precio del oro, por ]o que tienes 
que tener cuidado para vender tu 
oro en un momento en que su precio 
te perm it a hacer una operation favo¬ 
rable* 

La Jfnea 720 establece una compa- 
racion entre un numero aleatoric y la 
cantidad de oro almacenada en tus ea- 
maras acorazadas, al objeto de decidir 
si va a haber un robo o no; observa 
que son may ores las probabilidades de 
que ocurra un robo cuando tienes gran 
cantidad de oro que cuando tienes una 
cantidad pequeha. La rutina de robo 
se extiende desde la linea 900 hasta la 
940. La linea 905 elige ta cantidad de 
oro que ha si do robada y la 920 se ocu- 
pa de presentar dicha cantidad en la 
pantalla. 

La lines 740 calcula el valor total de 
los activos, sumando al valor de efec- 
live en caja el valor resultante del oro 
a! precio vigente en cada momento. 
La lmea 350 inicializa los colores de la 
pantalla, horrandola antes de que la 
instruction NEXT envie nuevamente 
el programa a ia linea 200, dejandolo 
listo para la siguiente pasada* 

Las line as 810 a 840 constituyen la 
rutina de «juego tenninado», que se 
utiliza cuando ei activo total de uno de 
los dos jugadores ha caido por debajo 
de cero, La rutina presenta el estado 
financiero de ambos jugadores des¬ 
pues de presentar el mensaje de FIN 
DE JUEGO. 

Finalmente ias Ifneas 850 a 880 son 
una rutina de ^quieres jugar otra vez? 

En el proximo capitulo veremos una 
serie de subrutinas que hacen que el 
juego resulte realmente adictivo. Ve¬ 
remos una rutina que permitira redu- 
cir Tus costes de mineria por medio 
de la investigation y desarrallo, leer 
un informe relativo a las prospeccio- 
nes realizadas en una mina, realizar 
excavaciones en la misma, escalona- 
das por etapas y cambiar tu oro por 
dolares. 

Ademas veremos todos los datos 
que necesitaras para dibujar los grafi- 
cos que ilustran el estado de las minas 
de oro y el progreso realizado por las 
excavaciones. 
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IGUAL QUE EL REY 
MIDAS 


Ha llegado el momenta de que te ha- 
gas rico rapidamente. ( ',Pero, has in- 
vcrtido en nuevas tecnologfas antes de 
comenzar la exploracion? 4 *,Como in¬ 
terprets el resuitado? £Y cual es el 
mejor momenta para vender? Tendrils 
que ser bastante perspicaz en la Mina 
de Oro, 

Ya has visto en la primera pane de 
este juego como definir las distintas 
opciones que se ofrecen al jugador: 
Investigacion y Desarrollo, Explora¬ 
tion e Informe, Aumento de la Pro- 
fundidad de la Mina y Cambio de Oro 
por Doiares. Ahora puedes completar 
tu programa de la Mina de Oro con 
las subrutinas que manejan cada una 
de estas opciones. 

Investigacion y Desarrollo es la ac- 
tividad que corresponde a la seleccion 
de la option 1, Exploracion Previa e 
Informe es la option 2, Aumento de 
la Profundidad de la Mina es la opcion 
3 e Intercambio de Oro por Doiares 
es la opcion 4. La opcion 5 correspon- 
de a pasar sin hacer nada, por lo que 
para ella no se requiere una subrutina 
completa. Las opciones 1, 2 v 4 intro- 
ducen los elementos de aleatoriedad 
requeridos para que el juego se parez- 
ca de verdad al niundo real. 


INVESTIGACION Y DESARROLLO 


1000 BORDER 6: PAPER 6: INK 
0: CLS 

1010 PRINT PAPER 1; INK 6; 
AT 3,4;"INVESTIGACION 
Y DESARROLLO";AT 4,4;" 
(PARA DISMINUIR EL 
COSTE)" 

1020 PRINT AT 7,6;"CUANT0 
QUIERE";TAB 5; 
"INVERTIR? ($>": INPUT 
RD 


1050 LET A(M,4)=A(M,4)-INT 
(RD*.05)-1 

1060 IF A( M,4)<0 THEN LET 
A(M,4)=0 

1080 LET A(M,2)=A(M,2)~RD: 

LET A(M,1>=A(M,1)-RD 
1100 PRINT AT 13,3;"EL COSTE 
DE LA MINA";TAB 3;"SE 
HA REDUCIDO A $";INT 
(RD*.05)+1;" POR 200M" 
1110 FOR Z=1 TO 300: NEXT Z 
1120 RETURN 

La Ifnea 1000 define los colores de 
la pantalla y borra esta. A continua- 
cion la Ifnea 1010 define la cabecera 
de pantalla antes de que la lmea 1020 
pregunte al jugador cuanto dinero 
quiere invertir en Investigacion y De- 
sarrolto; rd es la cantidad elegida. 

La Ifnea 1050 disminuve los costes 
de minerfa en una cantidad relaciona- 
da con el volumen de la inversion en 
Investigacion y Desarrollo. En la Ifnea 
1060 se comprueba que los costes de 
minerfa no se hacen negativos. La lf- 
nea 1080 ajusta los activos en metali- 
co y totales para tener en cuenta la 
cantidad invertida en I + D. 

La cantidad en que se ven reduci- 
dos los costes de minerfa se presenta 
en la Ifnea 1100. La Ifnea 1130 conve¬ 
ne un bucle FOR ... NEXT para in¬ 
troduce un pequeno retardo antes de 
que finalice la subrutina. 


EXPLORACION E IN FORME 


2000 PAPER 4: BORDER 4; INK 
0: CLS 

2030 LET R(M)=0: LET C(M,1)= 
INT (RND*90)+10: LET C 
(M,2)=INT ((RND*5)+2)* 
200: LET C(M,3)=INT 
(RND*200)+1: LET LL=INT 
(RND*3)-1 


■ 

INVESTIGACION Y DESARROLLO 0E 

NUEV0S MET0D0S EN MINERIA 

■ 

EXPLORACION DE NUEVAS MINAS 

■ 

EL INF0RME S0BRE LA MINA 

■ 

PERF0RAC10N DE LA MINA 


2050 LET C(M,4)=CCM,2)+LL*200 
2070 LET C(M,5)-0: LET KK= 

INT (RND*100); IF KK<C 
(M,1) THEN LET CCM,5>=1 
2080 PRINT PAPER 6; INK 0; 

AT 2,6;" INF0RME 
CIENTIFICO PRINT AT 
5,2;"POSIB.ENCONTRAR 
0R0= ";CCH,1 
PRINT AT 7,2; 
"PROFUNDIDAD ESTIMADA 
= C(M,2);"M": PRINT 

AT 9,2;"CANTIDAD 
ESTIMADA= ";C(M,3);"KG.' 
2100 LET Z=INT <RND*150000): 
LET A(M,2)=A<M,2)-Z: 

LET A(M,1) = A(M,1)-Z 
2110 PRINT FLASH 1;AT 12,0; 
"SE INICIAN 
EXCAVACIONES? (S/N) 1 ' 
2120 LET R$=INKEY$: IF R$= ,m 
THEN GO TO 2120 
2130 IF R$="S" THEN LET A 
(M,6>=0: LET R(M)=1: GO 
TO 3000 
2500 RETURN 


En la Ifnea 2000 se borra la panta¬ 
lla y se cambian sus colores. La Ifnea 
2030 pone a cero r(rrt) para indicar que 
todavfa no ha empezado la excava- 
cion. En esta Ifnea tambien se deter- 
mina la probabilidad de encontrar 
oro. el valor esperado de la profundi¬ 
dad y ia cantidad esperada. La varia¬ 
ble 11 es un niimero aleatorio compren- 

dido entre 1 v — 1. el cual se utiliza en 

¥ 

la Hnea siguiente a fin de determiner 
la profundidad real del oro; recuerda 
pues que ei valor de C(M.2) es precL 
samente el valor esperado de la pro- 
fundtdad. 

La lmea 2050 asigna a C(M,4} un 
valor igual a C(M,2) mas o menos 200 
metros (200 veces II ). Seguidamente la 
lmea 2070 decide si la mina contiene 
reaimente algo de oro. Se le asigna a 
C(M,5) el valor 0 para indiear que no 
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hay oro. KK es un niimero aieatorio 
comprendido entre 0 y 99. KK se com- 
para con la probabilidad de eneontrar 
oro, si KK es menor, entonces C(M,5) 
se pone a uno para indicar que hay oro 
en la mina. 

La lmea 2080 presenta al jugador el 
informe cientffico de la mina. Aunque 


al |ugador se le dice la probabilidad de 
que encuentre oro v la profundidad 
mas probable, el que esto ocurra real- 
mente depende de varios factores 
aleatorios. En consecuencia deberas 
utilizar tu propio juicio para determi- 
nar si la inversion merece la pena o 
no. 


Ocupemonos ahora de las malas no- 
ticias: el informe hay que pagarlo. Es 
imposible predecir lo que costara, 
pero puede ser un valor comprendido 
entre nada y 150.000 do! ares; este es 
el valor de Z elegido en la linea 2100. 
El coste de la exploracion y el infor- 
me hay que deducirlo de la disponibi- 
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lidad en efectivo, y esta deduccion 
aparecera tambicn en los activos tota- 
les. 

En este memento a] jugador se le 
ofrece la posibilidad de iniciar las ex- 
cavaciones, En la Ifnea 2110 se hace la 
pregunta < ( SE INICIAN LAS EXCA- 
VACIONES? Si la respuesta es $i\ el 
programa salta a la rutina de minerfa 
que empieza en la Ifnea 3000. 


EXCAVACION 


3000 BORDER 6: PAPER 6: INK 
1; CLS 

3010 IF R(M)=0 THEN PRINT 
FLASH 1;AT 9,2;’’N0 HAS 
EXPLORADO TODAVIA! 

FOR Z=1 TO 10: BEEP .3, 
-10: NEXT Z: RETURN 
3020 BORDER 5: INK 0: PAPER 
4: CLS 

3022 PRINT PAPER 5; TAB 14; 
CHRS 147;CHRS 148;CHR$ 

149;TAB 14;CHR$ 150; 
CHR$ 151;CHRS 152;CHRS 
153;TAB 13;CHR$ 154; 
CHRS 155;CHRS 156;CHR$ 
157;CHRS 158;TAB 31; 
CHRS 32 

3025 FOR Z=1 TO 32: PRINT 
CHRS 144: NEXT Z 
3060 PRINT AT 4,0;:FOR Z=1D0 
TO 1400 STEP 100: PRINT 
TAB 4-LEN STRS Z;Z; 

NEXT Z 

3090 LET A(M,2)=A(M,2)-A(K, 
4): LET A( M,1)=A(M,1)- 
A(M,4): LET A(M,6)=A(M 
,6>+200: PAUSE 30 
3100 PRINT AT 3,15;CHR$ 146: 
FOR F=4 TO (A(M,6>/100) 
+3: PRINT AT F,15;CHR$ 
145: FOR W=1 TO 10: 

BEEP .01,-20: NEXT W: 
NEXT F 

3120 IF A(M,6)=C(M,4) AND 
C(M,5)=1 THEN GO TO 
3500 

3130 PRINT FLASH 1; PAPER 5 
;AT 6,2;"NO ENCONTRASTE 
0R0 TODAVIA!IF ACM, 
6)=C(M,2)+200 THEN 


PRINT FLASH 1; PAPER 1 
; INK 6;AT 18,0;"ESTA 
MINA NO TIENE 0R0. 
PRUEBA CON OTRA.": FOR 
Z=1 TO 10: BEEP .5,-20: 
NEXT Z: LET A(M,6)=0: 
LET R(M)=0 
3140 PAUSE ISO 
3300 RETURN 

3500 PRINT PAPER 6; INK 2; 
FLASH 1;AT F,12;"ORO": 
FOR Z=-20 TO 50: BEEP 
.017,2:NEXT Z: PAUSE 75 
3550 LET ACM,5)=ACM,5)+1: 

LET AC M,3)=A(M,3)+C(M, 
3): LET ACM,1)=ACM,1)+ 

CA(M,3)*ER): LET ACM,6) 
=0: LET R(M)=0: GO TO 
3300 

Puedes acceder a esta rutina desde 
dos sitios del programa, Como ya has 
podido ver. se te ofrece la opcion de 
iniciar las excavaciones desde la ruti¬ 
na de Exploracion e In forme. Pero 
tambicn se utiliza cuando optas por 
aumentar la profundidad de la mina 
en 200 metros, eligiendo el numero 3 
de la lista de opciones. 

Como de costumbre, la primera If¬ 
nea de ta rutina se Iimita a borrar la 
pantalla y a definir sus colores. La If¬ 
nea 3010 comprueba que se ha com- 
pletado la fase de exploracion para 
que pueda iniciarse la fase dc excava¬ 
ciones. La linea 3020 vuelve a ocupar- 
se de nuevo de la pantalla, dejandola 
lista para nuevas presentaciones. 

Las lineas 3022 a 3090 se ocupan de 
los graficos que muestran en pantalla 
la mina de oro. La Ifnea 3100 ilustra 
la excavacion y genera algunos efectos 
sonoros. 

La Ifnea 3120 examina si la excava¬ 
cion ha llegado al nivel donde se en- 
cuentra el oro y si hay oro en la mina 
(podria ser que se llegara al nivel es- 
perado para el oro y ocurriese que la 
mina no contiene absolutamente 
nada). Si se llega hasta cl oro, el pro¬ 
grama salta a la Ifnea 3500, que infor¬ 
ma a! jugador de que se ha encontra- 
do, haciendo sonar una pequena me- 
lodfa. La Ifnea 3550 a justa ahora el va¬ 
lor de los activos del jugador, con 
arreglo al valor del oro encontrado. 


Si no hay oro, el programa contimia 
hasta la Ifnea 3130. Si la excavacion a 
sobrepasado la altura esperada para el 
oro cn 200 metros, el jugador es in- 
formado de que la mina no lo contie¬ 
ne. Si la excavacion atin no ha llegado 
tan lejos, el jugador recibe el mensaje 
NO HAY ORO TODAVIA. 


4000 PAPER 6: INK 1: BORDER 
6: CLS 

4020 PRINT INVERSE 1;AT 2,7 
;" AGENCIA DE CAMBIO 
PRINT AT 6,0;"EL TIRO 
DE CAMBIO ACTUAL ES:-"; 
AT 8,5;"1 KG DE 0R0= $" 
;ER;AT 12,2;"CUANT0S KG 
GUIERES CAMBIAR": INPUT 
NTE 

4070 IF NTE>A(M,3) THEN 

PRINT FLASH 1;AT 16,0; 
"NO HAY TANT0 ORO!" 

4080 LET NTE=INT NTE 
4090 IF NTE>A<M,3) OR NTE<0 
THEN GO TO 4020 
4095 PRINT AT 16,0;CHR$ 32; 

TAB 31;CHR$ 32 
4100 LET A(M,3)=ACM,3)-NTE: 
LET A(M,2)=ACM,2)+(NTE* 
ER): LET ACM,1)=ACM,1)+ 
(NTE*ER) 

4130 PRINT PAPER 5;AT 16,1; 
NTE;"KG CAM8IAD0S POR 
$";NTE*ER: PAUSE 170: 
RETURN 
5000 RETURN 

La Ifnea 4000 configura el progra¬ 
ma. 

La Ifnea 4020 presenta el tftulo en 
la pantalla, el valor de mercado del 
oro y los mensajes para seleccionar el 
numero de kilogramos que hay que 
vender. La linea 4070 comprueba si 
posees suficiente oro. La Ifnea 4080 
sirve para asegurarse de que la canti- 
dad de oro vendido es un numero en- 
teTo. 

La Ifnea 4090 vuelve a enviar el pro¬ 
grama al punto de presentacion de 
mensajes si la cantidad que se preten- 
de vender supera a la cantidad de oro 
que se posee, o es menor que cero. La 
Ifnea 4100 modifica el valor de los ac- 
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tivos totales can arreglo a ia cantidad 
de oro vendido. 

Esta subrutina in form a al jugador 
de cuanto oro se ha vendido v cuan- 

wF 

tos ddlares se han recibido a cambio, 
cosa que se hace en la Ii'nea 4130. La 
li'nea 5000 corresponde a la option de 
pasar sin hacer nada. 

LOS TOQUES FINALES 



1 FOR N=USR"A" TO USR "0"+7 
READ A:POKE N,A:NEXT N 
7000 PAPER 5: INK 0: BORDER 
5: CLS 

7010 PRINT AT 9,12;A$(M): 

PRINT AT 10/8;"HA HECB0 
BANCARR0TA": PRINT 
FLASH 1;AT 20/1;" PULSA 
UNA TECLA PARA JUGAR 
0TRA VEZ " 

7030 PAUSE 0: RUN 5 
8000 DATA 255/85,170/0,0/0/0 
,0/62/28,56/126/28/62/ 
120,28 

8010 DATA 255/255,62,126/127 
,60/124,126/0/0/0/0/1,1 
1 1 

8020 DATA 7,29,49/45/255,255 
,91,126/128/96,48,80, 
152,140,252,138 
8030 DATA 1,1/1,49/49,49/49/ 
255,122/187,62,95/153/ 
255/153,126 

8040 DATA 209,177,224,128, 
128,123,128,128,0/0,128 
,128/64,32/32,16 
8050 DATA 1,3,7,7,4,4,7,7, 
255/255,255,255,149/149 
,159,159 

8060 DATA 24,126/153,255,126 
,153,126/219/128,192/ 
224/240,248,168/248/255 
8070 DATA 16,8,8/4/14/31/31, 
255 

Las li'neas 7000 a 7030 contienen 
una rutina para jugar otra vez el jue- 

g°- 

Las li'neas 8000 a 8070 contienen los 
DATA para los GDUs. 

;Ahora ya puedes amasar tu inmen- 
sa fortuna y comprar todas esas cosas 
que siempre te has prometido! 
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PRESTAMOS 
Y CAPITALIZACIONES 


Si alguien aim no ha pedido un pres- 
tamo a un Banco, que cruce los dedos 
o toque madera, pero sin perder la es- 
peranza... Para cuando llegue ese me¬ 
mento* el programa que vamos a con- 
siderar sera de gran avuda. 

El programa vale tamhien para 
aquellos que desecn disponer de un 
cierto capital en una fecha determina- 
da como puede ser el caso de la jubi¬ 
lation o ahonrar lo necesario para dar 
la entrada exigida en la compra de un 
piso. 

Tanto cn uno como en otro caso es 
necesario hacer muchas cabalas y tan- 
teos, jugando con meses, numero de 
plazos, intereses, etc* antes de tomar 
una decision definilva, El ideal sen a 
tcner todo esto bien estudiado tran- 
quilamente en casa v Uevarnos la pa- 
peleta preparada cuando acudamos al 
banco o a la Caja de Ahorros. 

En el programa PRESTAMOS Y 
CAPITALIZACIONES hemos consi- 
derado solo aquellos cases de uso mas 
frecuente, pero teniendo en cuenta 
que podemos hacer un estudio com™ 
pleto en unos pocos segundos a partir 
de ciertos parametros, no nos sera di- 
ficil tanlear cualquier situacidn por en- 
revesada que parezea. Lo que si hay 
que aclarar es que el programa no de¬ 
ne en cuenta los impuestos o retencio- 
nes complement arias que haeen los 
hancos o el gobierno, como puede ser 
el IVA, eomisiones, polizas, etc* 

El programa es muy facil de mane- 
jar a traves de su Menu; 

1 - TOMA DE DATOS (CUOTA 
FIJA) 

2 - VISU ALIZACION TABLA 
DE PRESTAMOS 

3 - IMPRESION TABLA DE 
PRESTAMOS 

4 - VISU ALIZACION TABLA 
DE CAPITALIZACIONES 

5 - IMPRESION TABLA DE CA¬ 
PITALIZACIONES 


6 - TOMA DE DATOS (CUOTA 
VARIABLE) 

7 - VISU ALIZACION TABLA 
CAPITALIZACIONES 

8 - IMPRESION TABLA DE CA¬ 
PITALIZACIONES 

Se han considerado dos situaciones: 
(1 a 5) para cuotas de amortization o 
capitalization constantes o (6 a 8) para 
porcentaje preestablecido. Con ello* 
tal como se indicaba anteriormente se 
resueiven la mayorfa de los cases prac¬ 
tices de una forma directa y el resto 
se puede resolver mediante unos tan- 
teos muy send 1 los. 


AMORTIZACION DE PRESTAMOS 

O DEUDAS 


Cuando acudimos a un banco o 
Caja de Ahorros a solicitar un presta- 
mo deberemos fijar la cantidad desea- 
da, asf como el tiempo en que preten- 
demos devolverlo y el numero de pla¬ 
zos dentro de cada ano. Por ejemplo 
600.000 ptas. en 5 ahos con pagos tri- 
mest rales. 

Lo norma! es que los pagos scan to- 
dos iguales y por ello, este es el caso 
contemplado en el programa. Aun 
cuando todos los pagos scan iguales, 
en cada uno de el los hay una cantidad 
que corresponde al interes que se l le¬ 
va el banco o entidad de credito por 
prestarnos el dinero y la restante co¬ 
rresponde a la parte de capital que 
amortizamos cada vez, En cada plazo 
se paga menos intereses que en el an¬ 
terior y por tanto se amortiza una ma¬ 
yor proportion, 

El banco nos fija la coot a a pagar 
en fun cion del tanto por tie n to del in¬ 
teres que nos apiique, En nuestro caso 
hemos considerado que el porcentaje 
no varfa a lo largo de todo el perfodo 
de amortizacion* Aun cuando el page 
pudiera ser mensual, cuando se habla 
del % del interes* salvo que se indi- 



que otra cosa, se refiere a un ano. 

En el primer apartado del menu 
(TOMA DE DATOS) se nos pregun- 
tan todos los datos necesarios: 

- CAPITAL DESEADO 

- INTERES ANUAL (%) 

- NUMERO DE PLAZOS 

- MESES POR PLAZO 

El programa nos da la oportunidad 
de rectificar o reconsiderar los datos: 

DESEA MODIFICAR? S/N (para 
no modif icar basta pulsar *N\ 4 n 4 o 
'ENTER') 

Como los datos valen lo mismo para 
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definir un prestamo que una capitali- 
zacion, como veremos mas adelante, 
el programa nos pide que precisemos 
la operation: 

PRESTAMO / CAPITALIZ. 
(P/C)? 

El ordenador nos calcula e imprime 
en pantalla el valor de la cuota fija que 
debcremos pagar asf como el total de 
intereses que habremos pagado una 
vez amortizado todo el capital presta- 
do (la verdad es que normalmente 
solo servira para tirarnos de los pelos 
o para forzarnos a acordarnos de los 


bancos de una manera poco ama- 
ble.,.). Por ejcmplo si solicitamos un 
millon de pesetas a devolver en pagos 
mensuales durante cinco anos y el 
banco nas pide un 18% de interes 
anual deberemos pagar cada mes 
25,393 ptas, y al final habremos paga¬ 
do el millon que solicitamos mas 
523,580 ptas. 

Si hubieramos elegido pagar una 
vez al ano en lugar de cada mes, cada 
pago seria de 319.778 ptas, con un cos- 
to de intereses de 598,890 ptas, 

Quiza nos demos cuenta que no po- 


demos pagar tanto al mes v decidamos 
tantear pedir menos o pagar a mas lar¬ 
go plazo. Basta con volver a introdu¬ 
ce los nuevos datos en la opcidn 1 y 
en unos segundos tendremos la res- 
puesta. 

La situation es analoga si queremos 
calcular los detalles de una deuda en 
la que el acreedcr acepta financiarla, 
tal como seria el caso de cualquier 
«compra a plazos» (casa, coche, elec^ 
trodom^sticos, etc.), 

Con la option 2 podemos visualizar 
en pantalla el desglose de cada una de 
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las cuotas, asi como la deuda que nos 
queda por amortizar. Por simpticidad, 
el programa realiza un redondeo au- 
tomatico a la peseta y ademas liace un 
reajuste en los intereses del ultimo 
pago de forma que la amortizacidn sea 
perfecta (se producina una ligerisimo 
desajuste debido al redondeo que no 
anadiria mayor exactitud y producina 

una efecto no deseado), 

Para un uso posterior quiza nos in- 
terese conservar impresos los detalles 
del calculo e incluso confeccionar ta- 
bias con valores tipicos para el caso en 
que no podamos disponer del ordena- 
dor en un cierto momenta* Para eilo 
existe ia option 3 que es una combi¬ 
nation de las dos opciones anteriores. 

OtTa forma de amortizaeion seria 
devolver el capital en parte iguales y 
pagar en cada periodo esta cantidad 
mas los intereses devengados por la 
deuda pendiente, La cuota seria de- 
creciente cada periodo, El programa 
no esta expresamente preparado para 
ello por considerar es de menor uso 
pero no obstante se puede calcular 
cada plazo con ayuda de la opcion L 


FORMACION DE CAPITALES 


La capilalizacion es un proceso in- 
verso al de amortizaeion de una deu¬ 
da* En esencia se trata de «prestar a 
un banco o entidad financiera» un di- 
nero. normalmente en forma periodic 
ca, reinvirtiendo todos o parte de los 
intereses devengados de forma que se 
genere un aumento del capital con un 
efecto de «bola de nieve», 

Por ser de uso corriente, el progra¬ 
ma contempla la posibilidad de capi- 
talizacion a base de «cuota fija» o de 
«cuota creciente». Estasegunda forma 
se sueie uttlizar en las capitalizaeiones 
a largo plazo (seguro de vida o jubila¬ 
tion) a fin de compensar los efectos de 
la inflaceion. En nuestro caso se con- 
sidera que el interes del capital no va- 
ria durante todo el proceso y que el in- 
cremento de la cuota, cuando se elija 
esta formula, se produce de acuerdo a 
un % establecido, 

A, Capitalizacion con cuota fija 

La toma de datos (opcion 1) es co¬ 


rn un a la ya mencionada de amort iza¬ 
cion y a! final nos proporciona el va¬ 
lor de la cuota para conseguir el capi¬ 
tal estipulado. 

Las opciones 4 y 5 nos permiten re- 
fiejar en pantalla y en impresora los 
detalles de cada periodo. 

Ej. Se desea disponer de 10.000.000 
de ptas, a los 15 anos haciendo apor- 
taciones mensuales iguales, 

El banco nos ofreee el 7% de inte¬ 
res, 

De la opcion 1 deducimos que la 
cuota debe ser de 31.367 ptas. 

B. Capitalizaeiones con cuota varia¬ 
ble 

Las opciones 6> 7 v 8 hacen las fun- 
ciones equivalentes a 1, 4 y 5 pero con 
la variante de que se parte de una cuo¬ 
ta inicial incrementada anualmente se- 
gun un % establecido y se obtiene el 
capital alcanzado al final del periodo 
fijado. Si se desea finalizar con un ca¬ 
pital determinado aproximado debe- 
remos hacer una serie de tanteos* 

El ordenador nos solicita: 

CUOTA INICIAL MENSUAL 

INCREMENTO ANUAL % 

NUMERO DE PLAZOS 

INTERES DEL CAPITAL % 

A contmuacidfi nos calcula: CAPI¬ 
TAL ALCANZADO (PTAS.) 

Ej. Se desea comenzar una capita¬ 
lization a 15 anos con aportadones 
mensuales comenzando con 25.000 
ptas. e incrementandolas un 8% cada 
ano a fin de combatir la inflation y 
considerando que cada vez se puede 
hacer un poco mas de esfuerzo econo- 
mico. 

El banco nos garantiza un interes 
del 6.5% 

Al final conseguiremos: 12,594.225 
ptas. 

Ej. Se desea disponer de 10.000.000 
de ptas., aproximadamente a los 10 
anos haciendo aportadones mensuales 
que deseamos aumentar el 10% anual 
de forma automatics. 

El banco nos ofreee el 7% de inte¬ 
res. 

De la opcion 1 deducimos que la 
cuota inicial puede ser de: 38.100 ptas. 
para conseguir 10.010.385 ptas. o 
38.050 para alcanzar 9*997*248 ptas. 


COMO EFECTUAR LOS 
CALCULOS 


Vamos a explicar de una forma ge¬ 
neral los aspectos de la aritmetiea fi- 
nanciera que hemos utilizado en esta 
parte del programa, 

1. Amortizaeion en cuota fij as 

Al final del primer plazo deberemos 
todo el importe del capital prestado o 
deuda contrafda mas los intereses de¬ 
vengados durante ese periodo. Con el 
pago de la cuota abonaremos todos los 
intereses v con el sobrante amortiza- 
remos algo del principal. 

Al final del segundo periodo la si¬ 
tuation sera analogs, pero como la 
deuda sera menor, tambien lo seran 
los intereses devengados, y al ser cons- 
tante la cuota, la reduce ion de la deu¬ 
da sera mayor que cn el caso anterior. 

Al final del ultimo periodo nos que- 
dara una deuda tal que sumada a los 
intereses sea identica a la cuota esta- 
blecida, con lo cual se habra fmaliza- 
do el proceso de amortizaeion* 

La formula general para el calculo 
de capital mas intereses es C*(I + 
Ip/100) donde C es el capital solicita- 
do o debido e Ip es el interes corres- 
pondienfe al periodo elegido. Si el di- 
nero lo prestan al 18% anual y los pa- 
gos tienen una periodicidad mensual 
Ip sera 18/12 = 1.5 %. 

Por simplicidad de expresion deno- 
minaremos A=(l +Ip/100) K=Cuota 
y N=N' 5 de plazos. 

Fin PLazo No Deuda+Int 


1 C*A 

2 (C*A-K)*A 

■ 

m m m p * 

N .... 

Pago Deuda Pendiente 


K C*A-K 
K C*A A 2-K*A-K 
K 
K 

K C*> 

(*) C*A a N-K*A a CN-1)-K*A a 

<N-2) -..,-K*A-K 
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TABLA DE PRESTAMOS 


PRESTAMO: 1000000 PTS. AL: 18 % DE INTERES 

EN PAGOS DE 109666 PTS. CADA 3 MES(ES) 
DURANTE 12 PLAZOS 


PLAZO PARTE CAPITAL PARTE INTERESES DEUDA PENDIENTE 


1 

64666 

45000 

935334 

2 

67576 

42090 

867758 

3 

70617 

39049 

797141 

4 

73795 

35871 

723346 

5 

77115 

32551 

646231 

6 

80586 

29080 

565645 

7 

84212 

25454 

481433 

8 

88002 

21664 

393431 

9 

91962 

17704 

301469 

10 

96100 

13566 

205369 

11 

100424 

9242 

104945 

12 

104945 

4723 

0 


Con side rando que la Deuda Pcn- 
diente al final del ultimo pago debe ser 
cero, y ayudandonos del Caleulo 
Combinatorio obtendremos que: 

C*Ip*(l+Ip/100) A N 
(l+Ip/100) A N-1 

2. Capitalizacidn con cuota fija 

Al final de cada periodo dispondre- 
mos del capital que ten tamos acumu- 
lado, mas el importe de la cuota, mas 
los intereses devengados per el total 
durante el periodo entre plazos. 

Operando en forma semejante al 
caso anterior llegariamos a la siguien- 
te formula que nos permite hallar la 
cuota necesaria para alcanzar un capi¬ 
tal determinado en unas condiciones 
dad as: 

C*Ip/100 

C1 + Ip/100)*((1 + Ip/100) A N-1) 

Para terminar os ofrecemos el lista- 
do del pro grama completo. 


TecJed 


10 REM PRESTAMOS Y 
CAPITALIZACIONES 
30 BORDER 1: PAPER 1: INK 7; 
CLS 

35 DIM Q$(4,1D) 

40 OPEN #3;"T": REM APERTURA 
CANAL IMPRES0RA CON 
UNIDAD DE DISCO OPUS- 
DISCOVERY 
50 REM VARIABLES 
60 REM C=CAPITAL A F0RMAR l 
PEDIR 

70 REM CA=CAPITAL ACUMULADO 
80 REM K=CU0TA PERIODICA 
90 REM P=N0.DE MESES DE CADA 
PLAZO 

100 REM NP=N0.DE PLAZOS 
110 REM I=INTERES ANUAL EN % 
120 REM DP=DEUDA PENDIENTE 
130 REM IK=PARTE INTERESES 
EN LA CUOTA 

140 REM CK=PARTE AM0RTIZ.EN 
LA CUOTA 

148 CLS : GO SUB 1540 
150 REM MENU 


160 CLS : PRINT PAPER 6; INK 
0;"PRESTAMOS Y 
CAPITALIZACIONES": PRINT 
PAPER 6; INK 0;"======== 

PRINT 

170 PRINT PAPER 7; INK 1; 
"1"; PAPER 1; INK 7; 

" - PAPER 7; INK 1; 
"TOMA DE DAT0S (CUOTA 
FIJA)PRINT 

180 PRINT PAPER 7; INK 1; 
"2"; PAPER 1; INK 7; 

" - PAPER 7; INK 1; 
"VISUALIZ. TABLA DE 
PRESTAMOS": PRINT 
190 PRINT PAPER 7; INK 1;" 
3"; PAPER 1; INK 7;" - " 
; PAPER 7; INK 1;" 
IMPRESION TABLA DE 
PRESTAMOS": PRINT 
200 PRINT PAPER 7; INK 1; 
”4"; PAPER 1; INK 7; 

" - "; PAPER 7; INK 1; 
"VISUALIZ.TABLA DE 
CAPITALIZ.": PRINT 
210 PRINT PAPER 7; INK 1; 
"5"; PAPER 1; INK 7; 

" - PAPER 7; INK 1; 


"IMPRESION TABLA 
CAPITALIZ.": PRINT 
220 PRINT PAPER 7; INK 1; 
"6"; PAPER 1; INK 7; 

" - PAPER 7; INK 1; 
"TOMA DE DATOSCCUOTA 
VARIABLE": PRINT 
230 PRINT PAPER 7; INK 1; 
"7"; PAPER 1; INK 7; 

" - PAPER 7; INK 1; 
"VISUALIZ.TABLA DE 
CAPITALIZ.": PRINT 
240 PRINT PAPER 7; INK 1; 
"8"; PAPER 1; INK 7; 

" - "; PAPER 7; INK 1; 
"IMPRESION TABLA 
CAPITALIZ.": PRINT 


250 

PRINT AT 

21,0; 

PAPER 2; 


"PULSE OPCION 

DESEADA" 

260 

IF 

INKEYSO"" 

THEN 

I GO 


TO 

260 




262 

IF 

INKEYS 

="" THEN 

GO 


TO 

262 




265 

LEI 

’ P$=INKEY$: 

IF 

P$<"0" 


OR 

P$>"8" 

THEN 

GO 

TO 260 

270 

IF 

p$="2" 

THEN 

GO 

TO 500 

271 

IF 

P$="3" 

THEN 

GO 

TO 640 

272 

If 

P$="4" 

THEN 

GO 

TO 850 

273 

IF 

P$="5" 

THEN 

GO 

TO 970 
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274 

IF P$="6" THEN GO TO 

1100 


275 

IF P$="7" THEN GO TO 

420 


1320 

430 

276 

IF P$="8" THEN GO TO 

1430 


280 

REM TOMA DE DATOS (CUOTA 
FIJA) 

450 

290 

CLS 

460 

300 

PRINT AT 0,3; PAPER 6; 

INK 0;"===DATOS 
PROPORCIONADOS===” 


305 

LET B$=" ": LET L0NG=12: 
GO SUB 1600 

470 

310 

PRINT AT 3,0; PAPER 7; 

INK 1;"CAPITAL(PTS)C4* 



ESPACI03:"; PAPER 1; INK 

480 


7;TAB 18;S$ 

490 

320 

PRINT AT 5,0; PAPER 7; 



INK 1;"INTERES ANUAL(%):" 

495 


; PAPER 1; INK 7;TAB 18; 
S$ 

500 

330 

PRINT AT 7,0; PAPER 7; 

510 


INK 1;"NUMERO DE PLAZOS:" 

520 


; PAPER 1; INK 7;TAB 18; 
S$ 

530 

340 

PRINT AT 9,0; PAPER 7; 

INK 1;"MESES POR PLAZO :" 
; PAPER 1; INK 7;TAB 15; 



SS 

535 

350 

INPUT PAPER 4; INK 0; 



"CAPITAL ? ";C: PRINT AT 
3,18;S$;AT 3,18;INT (C 
+ .5) 

540 

360 

INPUT PAPER 4; INK 0; 
"INTERES ? ";I: PRINT AT 
5,18;S$;AT 5,18;(INT 
(I*100+.5>)/100 


370 

INPUT PAPER 4; INK 0; 

"NO. DE PLAZOS ? ";NP; 



PRINT AT 7,18;S$;AT 7,18 
;INT (NP+.5) 

550 

380 

INPUT PAPER 4; INK 0; 

560 


"MESES POR PLAZO ? ";P: 

570 


PRINT AT 9,18;S$;AT 9,18 

580 


;INT (P+.5) 

590 

390 

LET IP=I*P/1200: LET CF= 
(1+IP) A NP 

600 

400 

LET P$="":INPUT PAPER 4; 



INK 0;"DESEA MODIFICAR ? 

610 


S/N ";P$:IF P$="S N OR P$= 
"S"THEN GO TO 350 

620 

410 

LET P$="": INPUT PAPER 

630 


4; INK 0;"PRESTAMO / 
CAPITALIZ. ? P/e ";P$: 

640 


IF P$="C" OR P$="C" THEN 650 
GO TO 780 660 

REM CALCULO DE PRESTAMOS 670 
PRINT AT 13,4; PAPER 6; 

INK 0;”===CALCULO 
PRESTAMO===" 

LET K=C*IP*CF/CCF-1): 680 

LET K=INT (K+.5) 

PRINT AT 16,0; PAPER 7; 

INK 1;"CUOTA PERIODICA 690 
(PTS)"; PAPER 1; INK 7; 

TAB 22;K 

PRINT AT 18,0; PAPER 7; 

INK 1;"TOTAL INTERESES 700 
(PTS)''; PAPER 1; INK 7; 

TAB 22;INT (NP*K-C+.5> 

GO SUB 1700 

LET P$=INKEY$: IF P$="" 

THEN 60 TO 490 
GO TO 150 


REM VISUALIZACION 
DE PRESTAMOS 

TABLA 

710 

LET DP=C 


720 

FOR B=1 TO NP STEP 

15 

730 

CLS : PRINT TAB 8; 

PAPER 

740 

6; INK 0;"TABLA DE 


750 

PRESTAMOS": PRINT 

TAB 8; 

755 

PAPER 6; INK 0;"— 




PRINT 


LET B $="="; LET L0NG=32: 

GO SUB 1600 

PRINT PAPER 7; INK 2; 760 

"PLZ."; PAPER 1; INK 7; 

TAB 5; PAPER 7; INK 2; 


"PART. CAP. 1 ’; PAPER 1; 770 

INK 7;TAB 15; PAPER 7; 

INK 2;"PART.INT."; PAPER 780 

1; INK 7;TAB 25; PAPER 

7; INK 2;"8.PEND790 

PRINT S$: PRINT 

LET JB=(B+14): IF JB>NP 

THEN LET JB=NP 800 

FOR J=B TO JB 

LET IK=DP*XP:LET CK=K-IK 810 

IF J=NP THEN LET CK=DP 
LET DP=DP-CK 820 

PRINT J;TAB 5;INT (CK+. 

5);TAB 15;INT (IK+.5); 

TAB 25;INT (DP+.5) 

NEXT J: GO SUB 1700 830 

IF INKEY$= ,,M THEN GO TO 840 

620 

NEXT B: GO TO 150 845 

REM IMPRESION TABLA DE 850 

PRESTAMOS 


LET DP=C 

FOR 8=1 TO NP STEP 50 
LPRINT : LPRINT : LPRINT 
; LPRINT "TABLA DE 

PRESTAMOS": LPRINT "- 

- <•. LPRINT 

LPRINT "PRESTAMO: ";C;" 
PTS. AL: ";I;" % DE 
INTERES": LPRINT 
LPRINT "EN PAGOS DE ";K; 

" PTS. CADA MESCES 

> DURANTE ";NP;" PLAZOS" 

: LPRINT 

LET B$="=": LET L0NG=61: 
GO SUB 1600: LPRINT 
"PLAZOC4*ESPACI02 PARTE 
CAPITALC4*ESPACIO0PARTE 
INTERESESC5*ESPACI0T 
DEUDA PENDIENTE": LPRINT 
S$: LPRINT 

LET JB=(B+49): IF JB>NP 
THEN LET JB=NP 
FOR J=B TO JB 
LET IK=DP*IP: LET CK=K-IK 
IF J=NP THEN LET CK=DP 
LET DP=DP-CK 
LET Q$(1)=STR$ (J): LET 
Q$(2)=STR$ INT (CK+.5): 
LET Q$(3)=STR$ INT (IK+. 
5):LET Q$(4)=STR$ INT 
(DP+.5) 

LPRINT Q$(1);"C4*ESPACIOO 
Q$(2);"C7*ESPACI03";Q$ 
(3);"C8*ESPACI0T";Q$(4) 
NEXT J: LPRINT : NEXT B: 
GO TO 150 
REM CALCULO DE 
CAPITALIZACIONES 
PRINT AT 13,5; PAPER 6; 
INK 0;"===DATOS 
CALCULADOS===" 

PRINT AT 15,8; PAPER 4; 
INK 0;"(CAPITALIZACION)" 
LET K=C*IP/((1+IP)*(CF~ 

1 )) 

PRINT AT 17,0; PAPER 7; 
INK 1;"CUOTA PERIODICA 
(PTS)"; PAPER 1; INK 7; 
TAB 22;INT (K+.5) 

GO SUB 1700 

LET P$=INKEY$: IF P$="" 
THEN GO TO 840 
GO TO 150 

REM VISUALIZACION TABLA 
DE CAPITALIZACIONES 
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860 LET CA=0 

870 FOR B=1 TO NP STEP 15 
880 CLS : PRINT TAB 3; PAPER 
6; INK 0;"TABLA DE 
CAPITALIZACIONES": PRINT 
TAB 3; PAPER 6; INK 0;"— 


: PRINT 

885 LET B$="=": LET L0NG=32: 
GO SUB 1600 

890 PRINT PAPER 7; INK 2; 
"PAGO”; PAPER 1;"[3* 
ESPACIOJPAPER 7; 
"CUOTA"; PAPER 1;” 

PAPER 7;"CAP.ACUM.FIN 
PLAZO": PRINT S$: PRINT 
900 LET JB=CB+14): IF JB>NP 
THEN LET JB=NP 
910 FOR J=B TO J8 
920 LET CA=(CA+K)*(1+IP) 

930 LET L0NG=10: LET NUM=INT 
(CA+.5): GO SUB 1650: 
PRINT J;TAB 7;INT (K+.5) 
;TAB(16+L0NG>;NUM 
940 NEXT J: GO SUB 1700 
950 IF INKEY$= ,m THEN GO TO 
950 


955 NEXT B: GO TO 150 
970 REM IMPRESION TABLA DE 
CAPITALIZACION 
980 LET CA=0 

990 FOR B=1 TO NP STEP 50 
990 FOR B=1TO NPSTEP 50 
1000 LPR1NT : LPRINT : 

LPRINT : LPRINT "TABLA 
DE CAPITAL IZAC IONES": 

LPRINT "- 

-LPRINT 

1010 LPRINT "CAPITAL : ";C; 

" PTS. AL: % DE 

INTERES": LPRINT 
1020 LPRINT "EN PLAZOS DE " 

;INT (K+.5);” PTS. 

CADA P;" MES(ES) 
DURANTE NP;" PLAZOS" 

; LPRINT 

1030 LET B$="=": LET L0NG=45 
: GO SUB 1600: LPRINT ; 
"PAGO NO.C3*ESPACI03 
CU0TAC3*ESPACI03 CAP. 
ACUMULADO (FIN PLAZO)": 
LPRINT S$ 

1040 LET JB=(B+49): IF JB>NP 
THEN LET JB=NP 


1050 FOR J=B TO JB 
1060 LET CA=(CA+K)*C1+IP) 
1065 LET Q$(1)=STR$ J: LET 
Q$(2)=STR$ INT (K+.5); 
LET Q$C3)=STR$ INT (CA+ 
.5) 

1070 LPRINT Q$(1);" ”;Q$C2); 

"C6*ESPACI03";Q$(3) 

1080 NEXT J: LPRINT : NEXT B 
1090 GO TO 150 
1100 REM TOMA DE DATOS 
(CUOTA VARIABLE) 

1110 CLS 

1120 PRINT AT 0,2; PAPER 6; 
INK 0;"===DATOS 
PROPORCIONADOS===" 

1125 LET B$=" ": LET L0NG=9: 
GO SUB 1600 

1130 PRINT AT 3,0; PAPER 7; 
INK 1;"CUOTA INIC. 
MENSUAL;"; PAPER 1; INK 
7;TAB 20;S$ 

1140 PRINT AT 5,0; PAPER 7; 
INK 1;"INCREMENTO ANUAL 
%:"; PAPER 1; INK 7;TAB 
20; S$ 

1150 PRINT AT 7,0; PAPER 7; 


SV-1400 DATA RECORDER 


Para utilizar con: 

PET 

ZX 81 
VIC 20 

B.B.C. MICRO 
DRAGON 
APPLE II 


COMMODORE 64 

MSX COMPUTERS 


SPECTRUM 




IMPORTADOR: 



Castellc. 25-3. D E ■ 28001 MADRID 

Tel.: 435 37 01 ‘ Telex: 43819 ■ Fax: 91-275 40 23 
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INK 1;"NUMERO DE PLAZOS 
PAPER 1; INK 7;TAB 
20; S$ 

1160 PRINT AT 9,0; PAPER 7; 
INK 1;"INTERES CAPITAL 
<%);"; PAPER 1; INK 7; 
TAB 20;S$ 

1170 INPUT PAPER 4; INK 0; 
"CUOTA INICIAL ? ";K; 
PRINT AT 3,20;S$;AT 3, 
20;INT CK+.5) 

1180 INPUT PAPER 4; INK 0; 

"% INCREMENTO ANUAL ? " 
;IC: PRINT AT 5,20;S$; 
AT 5,20;(INT (IC+100+. 

5))/100 

1190 INPUT PAPER 4; INK 0; 
"NO. DE PLAZOS ? ";NP; 
PRINT AT 7,20;S$; AT 7, 
20;INT (NP+.5) 

1200 INPUT PAPER 4; INK 0; 
"INTERES ANUAL CAP. (%) 
? I: PRINT AT 9,20;S$ 
;AT 9,20;(INT <1*100+. 

5))/100 

1210 LET IP=I/1200 
1220 LET P$= ,,M : INPUT PAPER 
4; INK 0;"DESEA 
MODIFICAR S/N ";P$: IF 
P$="S M OR P$="S" THEN 
GO TO 1170 
1230 REM CALCULO DE 
CAPITALIZACION 

1240 PRINT AT 14,5; PAPER 6; 
INK 0;"===DATOS 
CALCULADOS===" 

1250 PRINT AT 16,7; PAPER 7; 
INK 2;"(CAPITALIZACION)" 

1260 LET CA=0: LET NK=K 
1270 FOR L=1 TO NP STEP 12: 

IF (NP-L)>=12 THEN LET 
HEM 2: GO TO 1280 
1275 LET HB=(NP-L>+1 
1280 FOR H=1 TO HB: LET CA= 

(CA+NK)*(1 +IP): NEXT H; 
LET NK=NK*(1 + IC/100): 
NEXT L 

1290 PRINT AT 19,0; PAPER 7; 
INK 1;"CAPITAL FINAL 
(PTS)PAPER 1; INK 7; 
TAB 20;INT (CA+.5) 

1300 GO SUB 1700 
1310 LET P$=INi,EY$: IF P$=”" 
THEN GO TO 1310 
1315 GO TO 150 


1320 REM VISUALIZACION TABLA 
DE CAPITALIZACIONES 
1330 LET CA=0: LET NK=K 
1340 FOR B=1 TO NP 
1350 IF (B-15*INT CB/15))<>1 
THEN GO TO 1370 
1352 LET LET L0NG=32; 

GO SUB 1600 

1355 CLS : PRINT PAPER 6; 

INK 0;”TABLA DE 
CAPITALIZ. (CUOTA VAR.) 

PRINT PAPER 6; INK 0 
;S$: PRINT 

1360 PRINT PAPER 7; INK 2; 
"PAGO NO."; PAPER 1;" " 

; PAPER 7;"CUOTA"; 

PAPER 1;" ”; PAPER 7; 
"CAPITAL ACUM.": PRINT 
S$: PRINT 

1370 IF B>1 AND <B-12*INT (B 
/12))=1 THEN LET NK=NK 
♦C1+IC/100) 

1380 LET CA=(CA+NK)*(1+IP): 
LET L0NG=10: LET NUM= 

INT (CA+.5): GO SUB 
1650: PRINT B;TAB 10; 

INT (NK+.5);TAB (20+ 
LONG);NUM 

1390 IF (B-15+INT (B/15))=0 
THEN GO SUB 1410 
1400 NEXT B: GO SUB 1410: GO 
TO 150 

1410 GO SUB 1700 
1420 IF INKEY$= mt THEN GO 
TO 1420 
1425 RETURN 

1430 REM IMPRESION TABLA DE 
CAPITALIZACIONES (CUOTA 
VARIABLE) 

1440 LET CA=0: LET NK=K 
1450 FOR B=1 TO NP 

1460 IF (B-50+INT (B/50))<>1 
THEN GO TO 1500 
1462 LET BLET L0NG=42 
GO SUB 1600 

1465 CLS ; LPRINT : LPRINT : 
LPRINT : LPRINT TAB 15; 
"TABLA DE 

CAPITALIZACIONES (CUOTA 
VARIABLE)": LPRINT S$: 
LPRINT 

1470 LPRINT TAB 5;"CUOTA 

INICIAL DE :";K;;" PTS 
CON INCREMENTO ANUAL 
DEL IC;"%" 


1480 LPRINT "PAGADERAS CADA 
MES DURANTE ";NP; 

" MESES AL (INT (I* 

100+.5))/100;:LPRINT 
1485 LET B$="-LET L0NG=35 
: GO SUB 1600 

1490 LPRINT "PAGO NO. CUOTA 
C3+ESPACI0]CAPITAL 
ACUMULADO": LPRINT S$: 
LPRINT 

1500 IF B>1AND (8-12+INT 

(B/12))=1THEN LET NK=NK 
*(1+IC/100) 

1505 LET CA=(CA+NK)*(1+ IP): 
LET Q$(1)=STR$ B: LET 
Q$(2)=STR$ INT (NK+.5): 
LET Q$(3)=STR$ INT (CA 
+ .5) 

1510 LPRINT Q$(1);Q$(2);"C7* 
ESPACIO]";Q$(3) 

1520 IF (B-50+INT (B/50)>=0 
THEN LPRINT CHR$ 12 
1530 NEXT B: LPRINT : GO TO 
150 

1540 CLS : LET B$="*": LET 
LONG=32: GO SUB 1600; 
PRINT AT 2,0;$$ 

1550 FOR 1=1 TO 15: PRINT 
"*";TAB 31;"*": NEXT I 
1560 PRINT AT 18,0;S$ 

1570 PRINT AT 5,11;" 

PRESTAMOS";AT 7,15;"Y"; 
AT 9,7;" 

CAPITALIZACIONES" 

1580 PRINT AT 14,8;"INPUT 
SINCLAIR" 

1590 PRINT AT 17,17; 

"MOLISOFT 1986" 

1595 PAUSE 200: BEEP 1,10: 
RETURN 

1600 REM REPETITION DE 
CARACTERES 
1610 LET S$="" 

1620 FOR X=1 TO LONG: LET 

S$=S$+B$: NEXT X:RETURN 
1650 REM JUSTIFICATION A LA 
DERECHA 

1660 LET S$=STR$ NUM: LET 

LONG=LONG-LEN S$: RETURN 
1700 PRINT AT 21,0; PAPER 2; 
"PULSAR CUALQUIER TECLA 
RETURN 

8000 STOP 

9000 SAVE *"M";1;"PRESTAMOS" 
LINE 1 


46 INPUT 
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A la hora de elegir un juego es mejor no fiarse solo de 

los colores de un anuncio. 



Como por desgracia ya ha bras podido descubrir, el que un anuncio 
tenga muchos colores no significa necesariamente que el juego sea 
bueno. Para evitar que esto te vuelva a suceder te ofrecemos la 
posibilidad de elegir tus juegos con una informacion veraz y objetiva, 
recion Itegada de Gran Bretana, la que proporcionan las listas 
elaboradas por la prestigiosa casa de encuestas Gallup. 


m 

sSfjf 


Efectivamente, para que elijas Dien y sin riesgos, 
ABC Analog ha realizado una exhaustiva 
recopilacion de toda la informacion aparecida en 
drchas listas durante los ultimos meses; indicando 
la posicion de cada uno de los juegos de mas exito 
en Gran Bretana, posicion anterior, la casa editora y 
su indice de ventas. Tambien se indican los 
programas de venta mas intensa actuaimente 
(programas ****PUNTERO). 

Y toda esta Informacion puede ser tuya 
simplemente rellenando ei cupon que aparece en 
esta pagina y enviandonoslo junto con 30 pesetas 
en sellos de correos para gastos de envio. 

Pero esto no es todo, porque ademas y para 
faciiitarte ia compra de los juegos que prefieras, 
nosotros nos encargamos de traer mediante un 
rapido servicio Express detransportes, losmejores, 
para que tu puedas tenerios aqul sin tener que 
esperar. Puedes buscarlos en Grandes Almacenes, 
Supermercados, Tiendas de microinformatica o si 
prefieres liamanos o escribenos y te los enviaremos 
instantaneamente. jA que te gusta!. 






Envienme Gratis y sin 
compromise*, su estudio sobre 
venta de programas en Gran 
Bretana. Adjunto 30 pts. en 
sellos de correos para gastos 
de envio. 

Nombre: 


Direct ion: 


I Telefono: 

i 



Recortay envla este cupon a: 

ABC SOFT 

Cl Santa Crus de Marcenado 31-3*14 
280 15 MADRID 
Tlef.f91] 2438213-2425059 
Telex: 44561 BABCE 




Algunos ejemplos de programas de nuestro catalog©: (#=indica la semana de lanzamiento). 

Posicion en listas Gallup semanales 

Ordenador Titulo _ Editor 29 Sept. 6 Oct. 13 Oct. 20 Oct. PVP(inc. IYA 1 


SPECTRUM 

PAPER BOV 

ELITE 

1* 

1* 

1* 

1* 

2300 

SPECTRUM 

LIGHT FORCE 

FTL 

2*1#) 

2* 

6* 

2* 

2300 

SPECTRUM 

OLLIE AND LISA 

FIREBIRD 

17* 

4* 

2* 

3* 

750 

SPECTRUM 

THE GREAT ESCAPE 

OCEAN 


6*i#} 

7* 

4* 

2300 

COM. 64 

INFILTRATOR 

US GOLD 



2*m 

2- 

2600 

COM. 64 

1942 

ELITE 




3*1#} 

2600 

COM. 64 

GO FOR THE GOLD 

AMERICANA 1* 

2* 

4* 

4* 

1350 

AMSTRAD 

COMPUTER HITS| 10}I3 

B. JOLLY 



2*(#J 

1! 

2800 

AMSTRAD 

APR ENTICE 

MASTERT. 

3* 

1* 

3* 

3* 

750 

MSI 

SPEED KING 

MASTERT. 

1* 

IS 

1* 

2 ! 

750 

MSX 

FOOT VOLLEY 

PLAYERS 

2* 

9* 

6* 

4* 

750 

MSX 

JET SET WILLY 2 

SOFT. PR. 




1*1#) 

2300 































program**' 6 " 


COMPACTANDO 
LA MUSICA 


■ 

COMPRIMIR LAS MELODIAS 

■ 

PROGRAMACION DE LIN BLUES 

DE 12 COMPASES 

■ 

UTILIZA MENOS NOTAS 

■ 

LA EJECUCION DE NOTAS LARGAS 


Pucdes aumentar la capacidad mu¬ 
sical de tu ordenador reduciendo los 
datos riecesarios para tus melodias, 
Tambien puedes utilizar esta misrna 
teenies para comprimir otros tipos de 
datos. 

Una pieza musical, antique sea una 
melodfa muy sendIla. ejecutada en tu 
ordenador, puede constituir una expe- 
riencia la mar de estimulante, espe- 
eialmente si has eompuesto y progra- 
mado la musics tu mismo. Natural- 
mente, existen dificultades que debes 
superar, una de las cuales es preeisa- 
mente la gran cantidad de datos, po- 
siblemente dos o tres pantallas repie- 
tas, que se requieren para programar 
una cancion tfpica, Aparte de lo tedio- 


so que results teclear dichos datos. sc 
ocupa una gran cantidad de memoria. 
En este articulo veremos algunas tec- 
niess sencillas de compresion dc da- 
tos, que te permitiran almacenar can- 
ciones dentro de tus programas en 
BASIC, sin tener que ocupar grandes 
porciones de la RAM de usuario. 

Como es natural, la necesidad de 
comprimir al maximo la cantidad de 
datos de niodo que ocupen el men or 
espacio posible, no esta Hmitada uni- 
camente a la generation de piezas mu- 
sicales, Las tecnicas descritas en este 
artfculo se pueden utilizar para com- 
primir datos utilizados en otras aplica- 
ciones, en el supuesto de que los da¬ 
tos, o bien sean repetitivos o utilicen 
solo un margen restringido de vslores. 


CANTANDO UN BLUES 


La mayoria de las canciones, cual- 
quiera que sea su estilo musical, tie- 
nen una analoga estructura que Ileva 
por si sola a la compresion de datos. 
Supongamos por ejemplo que quieres 
ej ecu tar una sencilla melodfa de Blues 
de 12 compases de extension, Lo mas 
probable es que escribas un programs 
en el que se almacenan secucncial- 
mente los valores de altura de los so- 
nidos dentro de sentencias DATA. 
Teclea y ejecuta el siguiente programs 
para escuchar una de cstas melodfas: 


Teclea 


10 LET T=.2 






























20 RESTORE 100 
30 READ D 

50 IF D=255 THEN GO TO 20 
60 BEEP T,D 
70 GO TO 30 

100 DATA 12,12,15,16,19,19, 

21,19 

110 DATA 12,24,22,21,19,17, 

16,14 

120 DATA 12,12,15,16,19,19, 

21,19 

130 DATA 12,24,22,21,19,17, 

16,14 

140 DATA 17,17,20,21,24,24, 
26,24 

150 DATA 17,24,22,21,19,17, 

16,14 

160 DATA 12,12,15,16,19,19, 

21,19 

170 DATA 12,24,22,21,19,17, 

16,14 

180 DATA 19,19,23,24,26,26, 
24,23 

190 DATA 17,17,20,21,24,24, 

20,21 

200 DATA 12,12,15,16,19,19, 

21,19 

210 DATA 12,24,22,21,19,17, 

16,14 

220 DATA 255 

La variable T establece un factor 
temporal para controlar la velocidad 
de ejcucion de la melodfa. La Ifnea 20 
pone el puntero de datos en la prime- 
ra Ifnea de datos y despues el progra¬ 
ms entra en un bucle entre las lfneas 
30 y 70, leyendo los valores del tono 
de los sonidos. que corresponden a los 
numeros de las sentcncias DATA y 
pasando a la sentencia de sonido de la 
Ifnea 60. La Ifnea 50 sirve para detec- 
tar el final de la melodfa, que esta 
marcado por el numero 255 elegido ar- 
bitrariamente. 

Si quieres programar un silencio en 
algun punto de la melodfa, puedes in- 
sertar otro valor arbitrario (por ejem- 
plo 254) e incluir una prueba en la If¬ 
nea 40 para detectarlo. Si el resultado 
de dicha prueba es positivo, el progra- 
ma saltara a una Ifnea que establece 
un retardo, devolviendo despues el 
control a la Ifnea 30 para continuar 
con la musica. 

Tal como esta ahora el programa, 


lo que hace es pasar los valores de afi- 
nacion a la seccidn del ordenador en- 
cargada del manejo de los sonidos, en 
la cual son ejecutados secuencialmen- 
te, tal como aparecen en los datos. 

Aunque este programa funciona 
muy bien, no tienes mas que echar un 
vistazo al listado para ver que, incluso 
para una melodfa tan sencilla como 
esta, se requieren una gran cantidad 
de datos. Esto resulta tedioso de te- 
clear y ocupa una cantidad de memo- 
ria nada despreciable. Hay ademas 
otro inconveniente: mientras las sen¬ 
tences DATA estan siendo procesa- 
das {es decir mientras sc esta ejecu- 
tando la melodfa) tu micro no puede 
hacer ninguna otra cosa. 

Algunos micros resuelven parcial- 
mente este problema con ayuda de un 
buffer de sonidos que puede contener 
datos de hasta seis sentencias de soni¬ 
do. Si el buffer tiene suficientemente 
espacio para almacenar todos los da¬ 
tos usados en una melodfa particular, 
el ordenador es libre de continuar con 
cualquier otra tarea; pero tambien en 
este caso, mientras haya que procesar 
sonidos, el micro debe estar atendien- 
do a su procesamiento. Ademas cl 
buffer de sonidos no hace nada para li- 
berarte de la tediosa tarea de introdu- 
cir los datos, o para reducir la canti¬ 
dad de memoria requerida. 

Por todo ello lo que realmente ne- 
cesitas, aparte de la solucion obvia de 
escribir melodfas muy cortas, es en- 
contrar alguna forma de compactar o 
comprimir los datos para que ocupen 
poco espacio y para que sean mas ra- 
pidos su introduccidn v procesamien¬ 
to. 


OBSERVA LA TENDENCIA 


La compresidn de datos se basa en 
que tus datos esten organizados con 
una o varias tendencias. Cuantas mas 
de estas tendencias seas capaz de iden- 
tificar, mayor sera el grado de com- 
presion que podras lograr. 

El primer paso para analizar las ten¬ 
dencias dentro de los datos de una me¬ 
lodfa es ejecutarla realmente o escu- 
charla en algun instrumento, intentan- 
do identificar los pasajes que se parez- 


can. Escribe la Ifnea melodica sobre 
un papel, ignorando los pentagramas, 
las indicaciones de tiempo y los demas 
signos musicales; concentrate unica- 
mente en la altura de cada sonido. 

Resulta muv sencillo escribir se- 

■r 

cueneiaimente el nombre que corres- 
ponde a cada sonido a medida que va 
apareeiendo en la cancion, dispomen- 
dolos sobre una Imea recta. Cuando 
todas las notas tienen la misma dura- 
cion, por ejemplo una parte de un 
com pas, la cosa es la max de facil; pero 
£que sucedc cuando una nota se pro¬ 
longs mas de una parte de un compas? 
El programa es mucho mas sencillo si 
todas las notas tienen la misma dura- 
cion, es decir si se le asigna a T un va¬ 
lor constants. Si se penriite que el va¬ 
lor de T eambie de una nota a otra, 
ademas del tono tienes que almacenar 
la duracidn de cada nota, con lo que 
se duplica ta cantidad de datos. Para 
tenet en cuenta las notas que se pro™ 
longan durante mas de una parte de 
compas, puedes simplemente introdu¬ 
ce la misma nota mas de una vez; por 
ejemplo si una nota dura tres partes 
de un compas puedes introducir el 
mismo valor del tono tres veces. 

Despues que hayas escrito la melo- 
dia del Blues , obtendras algo pareetdo 
a la tabla L 

Si estudias con cuidado la tabla an¬ 
terior, podras observar que estd com- 
puesta de cinco series diferentes de 
notas o «mini-melodias», casi todas 
ellas repetidas varias veces, tal como 
se muestra en la tabla 2: 

Ahora ya dispones de un metodo 
para la compresidn de datos. En lugar 
de teclear todas fas veces todas las no¬ 
tas de cada una de las frases o mini- 
melodfas cada vez que se presenter 
puedes introducir cada frase una sola 
vez junto con una corta serie de eddi- 
gos que decriban la secuencia con la 
que hay que ejecutar las frases, A 
cambio de este ahorro de memoria, 
resulta un programa mas largo, que 
tiene que decidir los datos a procesar 
en cada momento. El siguiente pro¬ 
grama pone esto de manifesto: 


Teclea 


10 LET C=0: LET T=.2 
20 RESTORE 100 


INPUT 49 













TabLa 1 


Soli Soli La#1 Si1 Rel Rel Mil Rel Soli 


Sol2 Fal Mil Rel Dol Si 1 Lai 

30 FOR N=1 TO C+1: READ P: 

Soli Soli La#1 Sil Rel Rel Mil Rel Soli 

NEXT N 

Sol2 Fal Mil Rel Dol Sil Lai Dol Dol 

40 IF P=Q THEN GO TO 10 

Re#1 Mil Sol2 SoL2 La2 SoL2 Dol Sol2 Fal 

50 RESTORE P 

Mil Rel Dol Sil Lai 

60 READ N 

Soli Soli La#1 Sil Rel Rel Mil Rel Soli 

70 IF N>=255 THEN LET C=C+1 

1 $oL2 Fal Mil Rel Dol Sil Lai 

: GO TO 20 

Rel Rel Fa#1 SoL2 La2 La2 Sol2 Fa#1 Dol 

80 BEEP T,N 

Dol Re#1 Mil Sol2 SoL2 Re#1 Mil 

90 GO TO 60 

Soli Soli La#1 Sil Rel Rel Mil Rel Soli 

100 DATA 110,120,110,120,130 

Sol2 Fal Mil Rel Dol Sil Lai 

,120,110,120,140,150,110 

Tabla 2 

,120,0 

Tl=SoL1 Soli La#1 Sil Rel Rel Mil Rel Soli 

110 DATA 12,12,15,16,19,19, 

‘ T2=Sol2 Fal Mil Rel Dol Sil Lai 

21,19,12,255 

T3=Do1 Dol Re#1 Mil SoL2 Sol2 La2 Sol2 Dol 

120 DATA 24,22,21,19,17,16, 

T4=Re1 Rel Fa#1 SoL2 La2 La2 SoL2 Fa#1 

14,255 

T5=Do1 Dol Re#1 Mil Sol2 SoL2 Re#1 Mil 

130 DATA 17,17,20,21,24,24, 


26,24,17 .255 




















program 0 ' 160 


140 DATA 19,19,23,24,26,26, 

24 . 23.255 

150 DATA 17,17,20,21,24,24, 

20.21.255 

Observa que la cantidad de datos 
requcridos para ejecutar la melodia se 
ha reducido enormemente. Se ha pa- 
sado de 97 bytes a 59 bytes, Haz co- 
rrer el programs y comprueha que la 
melodia es la misma interpretada per 
el primer programs. Puede que te pa- 
rezea que el «tempo» de la musica esta 
un poco raro; hablaremos mas de esto 
dentro de poco. 

Los datos de las frases estan en las 
lineas 110 a 150, mientras que los da¬ 
tos de la secuencia maestra —el orden 
en que hay que ejecutar diehas fra¬ 


ses— esta en la linea 100. El bucle de 
la linea 30 sirve para poner el valor de 
P dentro de la secuencia maestra para 
seleccionar cual es la frase que ejecu¬ 
tar, De hecho la secuencia maestra es 
una lista de numeros de lineas (o nu- 
meros combinados con un desplaza- 
miento para obtener los numeros de IE 
neas) en las que se listan los datos de 
las frases. 

Despues que se ha calculado la fra¬ 
se, la lfnea 50 pone el puntero dc da¬ 
tos al principio de !a linea adecuada 
de datos. 

La linea 10 inicializa C para contar 
el mimero de frases que han side ya 
ejecutadas. La duracion de cada nota 
se define mediante T, que sirve para 
controlar el tiempo total de la melo¬ 


dia, La linea 40 sirve para comprobar 
la ultima frase, que esta marcada por 
0 en la linea 100, El final de cada fra¬ 
se esta marcada por 255. Despues de 
que se interpreta cada una de ellas s el 
programa pasa a leer en la secuencia 
maestra el numero de linea de la si- 
guiente frase. 

Hay muchas formas de fraccionar 
una melodia en una secuencia maestra 
o principal y una serie de frases. En 
general, cuanto mas cortas sean las 
frases, mas larga sera ia secuencia 
principal. Tendras que buscar un cier- 
to equilibria para que las frases sean 
pequenas, pero no tan to que la venta- 
ja de utilizar este sistema se pierda por 
el excesivo aumento del tamaho de la 
secuencia maestra. 













LOS ME!ORES 
DE INPUT SINCLAIR 

PUESTO TITULO PORCENTAjE 

L° Commando ... 18,6 

Z.° Green Beret .. 16,9 

3. ° Sir Fred . / 1,8 

4. ° Sky fox . 10,4 

5. ° Saboteur . 10,1 

6° Ghost and Goblins . 8,4 

7 . ° Rambo .... 6,7 

8. ° Batman . 6,1 

9 ° Movie .. 5,9 

10° Rung Fu Master . 5,1 


100 % 

Para la confeccion de esra relacion unicamente se 
han tenido en cuenta las votaciones enviadas por 
nuestros lectores de acuerdo con la seccidn «Los 
Me;ores de lnput». 


Diciembre de 1986. 
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aspir antes anuaEes, sblo unos pocos 
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jPrepGrate para matricuiarie an la 
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Disponibles ers: 
CASSETTE 

y 

DISCKETTE 


Si eta astrortautas ham quedado 
eislados a fncomunicados en el 
asteroide Avernus, el cuall yiene 
directo a chocar contra la Tierra, Tu 
misi6n es rescatar a fos siete tri- 
pul antes V destruir Avernus. 
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fuerzas de robots andromedsnos, 
Tu tienes que escaper con el «tN£- 
mesisi* Sntacto o smpezar la clients 
atrSs hacia 9a autodestruccftrv El 
tlempo ecabe r eada segundo as 
importante ■■i 
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VISITE LA DIVISION UttIttvi 

GALERIAS 


Motconclo estilo. 
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Esta es una real y yerdadara 
mlsibn disbblica, Como comandan- 
te Glenn White, has sEdo lanzado 
dentro de la isla artificial de Abraxas 
Corporacidn con sblo una moto, un 
ultra!igero y nueye granadas, 

Tu misibn, destruir los Reactores 
Nucleares de la lsla 6 *„ jsuerte! 
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Mariano Cubi, 4 Entlo. Tel. 218 34 00 0S006 Barcelona 
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ASTERIX Y EL CALDERO MAGICO 


Desde Michael Knight hasta los 
Picapiedra, pasando par el intrepido 
Biggies y los protagonistas de 
Corrupcidn en Miami, casi todos los 
personajes famosos del cine, la 
television y los comics , lian desfilado 
ya por nuestro atdnito micro. No 
podfan faltar (y la verdad es que los 
echabamos de menos), los 
inolvidables Asterix y Obelix, en una 


se enfrenta, bajo nuestra habil 
direcidm a un sol dado romano, un 
jabalL un toro o cualquier otro 
personaje malintencionado que se le 
ponga por delante. A ambos lados 
de la pantalla de combate, aparecen 
dos graficos de barna que nos indican 
el nivel de resistencia que Ie resta a 
cada contendiente. Cuando dicho 
nivel alcanza su punto mas bajo, el 


empleo adecuado. Cuando se os 
niegue el acceso a alguna zona, 
mtentadlo de nuevo mas tarde 
llevando con vosotros objetos 
diferentes. Si sois capturados y 
encerrados en la carceU paciencia, at 
cabo de unos segundos se abrira la 
puerta v podreis salir. Podriamos 
dares algunos consejos pero no 
que re mas ponerlo demasiado fadl 


DATOS GENERALES 


IM 


HTULO Asterix and the Magic Caul¬ 
dron 

FABRICANTE Beam Software 
ORDEHADOR Spectrum 48 

TENIA DEL PROG RAMA 

Aventuras de Asterix 



CALIFICACION (Sobre 10 ptos.) 

■ ■■■■■■■■■■imiiiimmiaiiimatiifliiiflflHm 

ORIGINAL! DAD 8 

INURES 8 

GRAFICOS 8 

COLOR 8 

SONIDO 0 


RlfllRVVIllltllRVl 


TOTAL 


32 


? i; I 


de sus mas memorables aventuras: El 
Caldero M&gico. 

Lo que mas nos ha impresionado del 
programa, es su escrupuloso respeto 
por la tecnica dibujistica de los 
comics , la calidad de los graficos, y 
la variedad del color* Por otra parte, 
tambien queremos destacar un 
detalle origmalisimo que ha 
conseguido entusiasmarnos: cada vez 
que Asterix v su companero Obelix 
se acercan a algun enemigo, se 
interrumpe la accion y aparece una 
pequena pantalla en la que se 
reproduce con mayor detalle el 
combate* 

Sin mas armas que sus pies y sus 
punos, nuestro valiente protagonista 


contendiente derrotado sale 
despedido, y el programs continua 
donde lo habiamus dejado. 

Os recomcndamos que elaboreis on 
mapa de los campamentos, el 
bosque, y la ciudad de Roma. 
Tambien es aeonsejable recoger 
todos los objetos que se encuentren 
en el cam in o, y tratar de usarlos en 
todas partes, hasta dar con su 


Avenger es un programa que 
podemos inscribir en la lmea de los 
juegos de artes marciales, aiin 


porque el nivel de difllcultad no es 
muy alto* 

Haeicndo un balance general, os 
diremos que Asterix es un magmfico 
programa con el que pasarcis muy 
buenos ratos. Estamos seguros de 
que despues de jugar unas cuantas 
partidas, tendreis un motivo mas 
para conservar un grato recuerdo de 
estos simpaticos galos. 


sehalando que su tratamiento es 
notablemente diferente con respecto 
al tradicionah La novedad reside en 


★★★★★★★★★★★★★★★★★★★★★★★ 

EL VENGADOR 



RBF1ANS 
AHEAD| 


and the 
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el abandono del combate 
^individuals que ya oomenzaba a 
resuitar un poco aburrido, por una 
accion con mas interes y mayor 
variedad de situaciones. El secreto 
de este original cambio de 
planteamiento es bastante simple; en 
realidad, ha bastado mezclar las artes 
marciales con el modelo clasico de 
«aventura». El resultado del 
experimento, en nuestra opinion, ha 
si do positive, aunque 
mejorahle. 

En Avenger, tenemos un escenario 


que deja de ser un mere foil do 
decorative, y pasa a format parte del 
desarrollo del juego* El protagonists, 
adem^s de combatir, puede 
desplazarse en todas direcciones, 
recoger objetos, y abrir 
puertas* 

La velocidad y los reflejos, aunque 
siguen estando presentes, dejan paso 
a la estrategia y la concentration.., 
en suma, una sfntesis perfecta del 
tema de las artes marciales con los 
canones clasicos de los juegos de 
aventuras. 


En cuanto a los graficos, abundancia 
y profusion son los adjetivos mas 
adecuados para definirlos, El scroll 
es rapidfsimo, aunque con ligeras 
imperfecciones en algunas partes del 
escenario, y los sprites 
impecables, 

El color tampoco deja nada que 
desear, y el sonido, modesto en 
comparacion con los demas 
conceptos, es aceptable, 

Teniendo en cuenta todo lo que 
hemos dicho, solo cabe una 
conclusion: estamos ante un 




DATOS GENERALES 

■■IIIIIIHMIllilllflHIlllllill 

TITULO Avenger 
FABRICANTE Gremlim Graphic 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Artes marciales 



CALIFICACION (Sobre 10 ptosj 


! tl I I 


OR I GIN ALIDAD 

INTERES 

GRAFICOS 

COLOR 

SONIDO 


9 

8 

9 


TOTAL 


40 



HH, 



programa excelente. 

For otra parte, no os costara mucho 
haceros con el desde las primeras 
partidas, pues el nivel de dificultad 
no es muy alto, y ademas, las 
informaciones que aparecen en la 
pantalla os pueden dar en todo 
momento una idea exacta de vuestra 
situation, con todos los detalles 
interesantes claramente 
expresados- 


★★★★★★★★★★★★★★★★★★★★★★★ 


CORRUPCION EN MIAMI 


Si establecemos una comparacion 
entre El Coche Fantastico, El Halcon 
Caliejero y Corruption en Miami, 

llegaremos a la conclusion de que 
este ultimo es el que posee el mejor 
argumento y las mayores dosis de 
interes. Solo se ve superado por el 
anterior en el capftulo de los 
graficos, pero en lo demas, no cabe 
duda de que tiene todos los 
ingredientes necesarios para ser 
calificado como el mejor de los 
tres. 


Dos han sido los criterios que nos 
han llevado a hacer esta afirmacion: 
en primer lugar, la originalidad de la 
adaptation, teniendo en cuenta 
problemas como la coexistencia de 
dos protagonist as en di versos tipos 
de accion, o el desarrollo del juego 
en «interiores» y «exteriores» con 
cambios radicales de ambientacion 
grafica. En segundo lugar, la 
emocidn y el elevado grado de 
interes, que te sumergen en la 
aventura como si realmente la 


estuvieras viviendo, 

De la mano de Tubbs y Crockett, 
podras circular a toda velocidad por 
las peligrosas calles de Miami, 
dtsparando a traves de la ventanilla a 
los coches sospechosos; entrar en 
locales como el «Joe‘s Bar» o el 
«Dixie Bar» e investigar en su 
interior; capturar e interrogar a 
grandes traficantes y camellos de 
poca monta, con nombres como 
Dino, Sharky Duke o Frankie; hacer 
sobornos pam obtener informacidn; 
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recogcr pruebas; ingresar en un 
hospital para reponerse de las 
heridas; ir al ayuntamiento para 
entregar a los maleantes 
capturados... y algun otro detalle 
mas que no recordamos. 

Esto es lo que se llama un 
argumento «eomplcto». 

Por otro lado. los graficos tampoco 
estan mal, aunque hemos detectado 


DATOS GENE RALES 

ftpfllllllAilflSiaaBflaAIIIIIlKlilllBIIOVIllllflVVS 

T1TUL0 Miami Vice 

FABRICANTE Ocean 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Policiaco 



CALIFICACION 

(Sobre 10 ptosj 

ORIGINALIDAD 

8 

INTERES 

9 

GRAFICOS 

7 

COLOR 

3 

SONIDO 

5 

TOTAL 

37 



algunos defectos, un tanto burdos, 
en los sprites de las escenas 
interiores. El sonido sf deja bastante 
que desear, pero podemos pasarlo 
por alto, 

El juego en conjunto es excelente, a 
pesar de estas pequenas notas 
negativas, y estamos seguros 
de que cosechara un gran 
exito. 


★★★★★★★★★★★★★★★★★★★★★★★ 

FAT WORM: UN GUSANO 
EN APUROS 


Creemos que la originalidad es una 
condition indispensable que debe 


DATOS GENERALES 

T1TUL0 Fat Worm 


FABRICANTE Durell 


ORDENADOR Spectrum 48K 


TEMA DEL PROGRAMA 

Gusano en un laberinto 



CALIFICACION {Sabre 10 ptos.) 

aiaflaavi'iiiiiHiill*ittiiiiiiiiiiii»ii*ii«>Biiif • 

ORIGINALIDAD 

9 

INTERES 

6 

GRAFICOS 

7 

COLOR 

SONIDO 

7 

7 

TOTAL 

36 


reunir todo programa que pretenda 
ser un numero uno, 
mdependientemente de su calidad 
teenica. 

Sin embargo, en muchas ocasiones 
nos enconlramos con programas 
como Fat Worm, en los que 
debemos aplaudir una tremenda 
originalidad, y a la vez lamentar un 
hajo grado de inleres. 

El protagonista de Fat Worm, es un 
gusano que se desplaza lentamente, 
reptando en el interior de una 
especie de laberinto. La accidn 



discurre, vista desde arriba, y las 
pantallas se recorren a fraves de un 
scroll algo tosco. 

La presentacidn queda un poco 
deslucida por el exceso de grandes 
espacios vacios, pero los graficos son 
de un nive! aceptable. Donde falla el 
programa, eomo ya hemos 
comentado, es en el inleres. No 
queremos decir que sea aburrido, 
sino simplemente serial ar que le falta 
ese «gancho» adictivo al que otros 
juegos nos tienen 
acostumbrados. 



5FflRrtJES;adai5 
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ELHALCON 
CALLEJERO 


Hace un par de meses publicamos el 
comentario de Stainless Steel, un 
magnified programa al que 
augurabamos un gran exito (el 
tiempo nos ha dado la razon), Pues 
bien, recientemente ha aparecido un 
juego de caractensticas muy 
similares, aunque no exento de 
originalidad, en el que se sustituye el 
coche por una moto, para reproducer 
las aventuras del «Halc6n Callejero», 
programs que los adictos a las scries 
de television recordaran. Se trata de 
Street Hawk (tftulo original en ingles 
que quiere dedr lo mismo), 
presentado por Ocean junto con 
otros dos titulos tambien 
relacionados con series de television 


ya hemos calificado los graficos. 
En cuanto a lo demas, solo 
podemos resenar un aspecto 
poco positive; se trata del 
argumento, excesivamente 
simplista, y del desarrolfo de la 
accibn, algo monotono, 

En definitiva, Street Hawk es un 
excelente programa desde el punto 
de vista grafico, que deja bastante 
que desear en cuanto a la 
originalidad. 


de mucho exito. 

El programa es de una calidad 
grafica exceptional. Tiene todos esos 
pequenos dctalles que a veces pasan 
desapercibidos, pero que 
entusiasman a quienes saben reparar 
en ellos, El scroll es rapido y suave, 
las figuras mas que desplazarse se 
«deslizan», los objetos hacen sombra 
sobre la superftcie del suelo, el 
diseho grafico es minucioso y 
precise.,. Podriamos seguir 
enumerando, peio creemos que 



■ , 


DATOS GENERALES 

■ I ■ ■ lAAaaav a ■ ■ uummmumm ■ m ainpipi ■ mu 

TITULO Street Hawk 

FABRICANTE Ocean 


ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Moto fantastica 



CALIF CACION (Sobre 10 ptos.) 


■ <«■(■ iiiiiiiimiMirii iimiippimm pIMMII 

ORIGINALIDAD 6 

INTERES 9 

GRAFICOS 8 

COLOR 8 

SONIDO 7 

TOTAL 38 

—- - --- 



★★★★★★★★★★★★★★★★★★★★★★★ 

THANATOS: UN PROGRAMA 
SORPRENDENTE 


Por sorprendente que te parezea, en 
este programs tu no eres el 
protagonists. 

S61o por ese detalle, ya tendriamos 
motivos mas que suficientes para 
otorgarle un deslumbrante «diez» en 
originalidad, pero eso no es todo. 
Ademas, results que ni tu ni el 
personaje principal de la aventura 
estais del lado de los «buenos», 
como seria logico esperar, sino del 
lado de los «malos». 


Mike Richardson, genial autor de 
esta pequeha maravilla, ha dado la 
vuelta al pianteamiento clasico de los 
juegos para micro, sin neeesidad de 
emplear tecnicas revolucionarias, ni 
graficos espectaculares, sino 
simplemente un poco de 
imagination. El resultado, a nuestro 
entender, no ha podido scr mas 
original ni mas acertado, 

El argumento del programa puede 
resumirse asi: eres un monstruoso 


dragon que debe rescatar a su 
malvada duena, presa en un castillo, 
y llevarla al lugar donde se encuentra 
su caldero magico, Tu unica mision 
consiste en transportarla sana y 
salva, sera ella misma quien haga 
todo lo demas. 

A lo largo del camino, te eneontraras 
con grupos de Caballeros andantes 
que trataran de frustar tus planes. 
Para deshacerte de ellos, puedes 
emplear cualquiera de esto dos 
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LAS ESTRELLAS 
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Los autores de “SIR FRED” te 
presentsn su nueva ereacion: Si 
buscas ACCION sin limites y 
recorrer los paisajes atricanos en 
una trepidante fuga, EL MISTERIO 
DEL NILO es tu video-aventura. 


ZIGURAT SOFTWj 
A vda. Cardenal H 
28034 MADRID 









































































DE ZIGURAT 


...ALERTA ROJA.„ALERTA ROJA.„ 
„,ALERTA ROJA.,.ALERTA ROJA... 
Oueda poco tiempo para reparar el 
reactor de la central nuclear mas 
potente de la Tierra, Aprovechalo... 
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Disponible SPECTRUM proximamente AMSTRAD y MSX 
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metodos: 

1.- Abrasarlos cscupicndo I lama rad as 
de fuego 6 2- Capturarlos con tus 
poderosas garras, remontar el vuelo. 
y dejarles caer desde lo alto sabre 
una roca afilada. Este segundo 
metodo es me nos eficaz, pero mas 
artistieo, y ademas el efecto esta muy 
bleu conseguido. 

A continuation, os haremos algunas 
sugerencias para facilitates un poco 



cuidado eon los desprendimientos de 
rocas. Despues de atravesar un lago, 
Uegaras a un castillo. En cuanto lo 
veas, detente rapidamente, aterriza, 
y acercate caminando hasta la 
puerta. Usa tus llamas para 
derriharla. Una vez dentro del 
castillo. seras atacado por una 
multitud de Caballeros que te 
arrojaran lanzas, piedras y ftechas, 
Vue la alto a una velotidad media, y 


DATOS GENERALES 

■.. i ■ ....... 

TITULO Thanatos 
FABRICANTE Oureil 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Dragon volador 



CALIFICACION rSobre 10 ptos.) 


ORIGINALIDAD 10 

IHTERES 9 

GRAFICOS 8 

COLOR 8 

S0NID0 8 

■ ■ ■ t|t(f 1 in i « lltltlllll 1 ****** E ( I * IP ■ J ■* 

TOTAL 43 


sauries (aqui vuela todo lo alto que 
puedas para evitarlos), Uegaras a 
otro castillo. En el encontraras un 
libro. Baja junto a el y espera a que 
tu am a lo recoja. 

A partir de aquE tcndras que 
arreglartelas para llegar hasta el 
proximo castillo, donde esta la parte 
final de la aventura. 

Vigila en todo momenta los latidos 
del corazon, Cuando se aceleren en 




las cosas. No obstante, debeis tener 
en cuenta que el nivel de dificultad 
no es alto al principle, y teniendo 
demasiadas «pistas», e! juego puede 
perder interes para aquellos que se 
consideren cxpertos en esta clase de 
programas, 

Algunas sugerencias: Al coinenzar el 
juego, vuela siempre hacia la 
derecha, Al llegar a la caverna, ten 


perrnanece muy atento porque entre 
tus enemigos pronto divisaras a lu 
ama, agitando los brazos. Aterriza y 
colocate junto a ella para que pueda 
subir. En cuanto la tengas. huye 
rapidamente, Procura no hacer 
nunca maniobras bruscas, pues 
corres eL peligro de dejarla caer. 
Dcspues de atravesar de nuevo una 
gruta, y cruzar un mar poblado de 


exceso. detente y perrnanece parado 
durante unos segundos hasta que se 
recupere el pulso normal. Tampoco 
debes descuidar el nivel de encrgfa, 
del que depende tu capacidad para 
escupir fuego. 

Cuando seas atacado por abejorros 
gigantcs, frena bruscamente para que 
te adelanten, y der riba los de una 
certera llamarada. 


★★★★★★★★★★★★★★★★★★★★★★★ 


LA LEYENDA DE LA ARMADURA 
SACRADA 


Anti-Riad es una poderosa armadura 
de com bate ingravida, disehada 
simultaneamente por ios cientfficos 


del Norte y del Sur en el 2086, el 
aho de la destruction total* 

Este es uno de los pocos recuerdos 


que conserve la nueva raza, surgida 
de las cenizas de la antigua 
civilization, despues de varios siglos 
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de invierno nuclear. 

Cuando los invasores extraterrestres 
llegaron para esclavizar a los 
descendientes de los hombres, la 
leyenda de la Armadura Sagrada $e 
convirtio en la ultima esperanza de 
los sometidos. 

Un valeroso guerrero Hamado Thol, 
fue elegido para liber tar a su 
pueblo. 

Los ancianos le cncargaron la rnisidn 

de rescatar la Armadura Sagrada de 

la ciudad de los muertos, v con ella 

' ■■ 

destruir el centro de poder de los 
tiranos. 

Despues de leer el comic de quince 
paginas que acompaha al programa. 
y tras jugar varias partidas, nos 
hemos convencido 
plenamente; 

Antiriad es una buena adquisicidn. 
Los graficos, el movimiento de las 
figuras, la ambientaeion. el color, el 



sonido, todo excelente. For si fuera 
poco, el interes es bastante elevado, 
y el grado de dificultad tiene ese 
«pun to justo» que rara vez 
encontramos, Vaya sincere 
felicitacion para los senores de 
Palace Software. 

Para terminar, nos vamos a permltir 
hacer un pequerio comentario sobre 
el comic . Sus dibujos son muy 
buenos. y el argumento, quc hemos 


DATOS GENERATES 

i■iaiiii mu■ i ill ■ i i ■ i I I fet t i fe II II llll II 

TITULO Antiriad 
FABRICANTE Palace Software 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Aventura fantastica 



CALIFICACION {Sobre 10 ptos.i 


ORIGINALIDAD 8 

INTERES 9 

GRAFICOS 9 

COLOR 8 

SONIDO 8 

liiilfAiaiilAIHttlliAiifeiflitlklfelllllBlIIIHIII 

TOTAL 42 


resumido al principle, nos pone «en 
situations para meternos plenamente 
en la aventura desde la primera 
partida. No obstante, la traduction 
deja bastante que desear. Lo mismo 
ocurre con los mensajes que 
apareeen en el program a, 
especialniente en las pantailas de 
menu, donde los errorcs no solo son 
de traducdon literal, sino hasta de 
ortograffa. 



★★★★★★★★★ 

MAILSTROM 


Estamos en una pequeha poblacion 
inglesa de comienzos del siglo XXL 
Aunque aparentemente todo esta en 
calma, las calles vac fas ocultan una 
sociedad que se derrumba. Desde 
que salio la ultima gota de petrdleo 
del ultimo yacimiento, se sucedieron 
incontables revueltas populares, que 
dieron paso a I caos y la anarqufa. 
Para colmo, una banda de peligrosos 
delincuentes se hizo con el control 
del gobierno, fomentando el crimen 
y la corruption. En este ambiente 
sobreviven la ultima furgoneta de 
reparto postal, y el ultimo cartero, 
un tal Michael Nasty. Su linica 


mision consiste en mantener el 
servicio a toda costa, como sfmbolo 
del orden. 

Nuestro protagonista no esta solo cn 



DATOS GENERALES 

III II i initJii M ■ «i ■ It It'll It lilt II I ■ III 

TITULO Maiistrom 

FABRICANTE Ocean 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Aventuras cfe un cartero 



CALIFICACION (SObre 10 ptes.) 


ORIGINALIDAD 

INTERES 

GRAFICOS 

DOLOR 

SONIDO 


7 

5 
7 

6 
4 
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TOTAL 


29 



















































































su lucha. Dispone de una sofisticada 
terminal de datos (precisamente la 



ultima), y una falsa furgoneta 
antigua, que en realidad es an 


poderoso turbo-yet blindado, 

Despues de leer en las instrucciones 
del juego un argumento tan 
prometedor como este. es posible 
que mas de imo se Iteve una pequefia 
decepcion. Aunque no se puedc 
negar que se trata de un buen 
programa, la verdad es que su 
calidad dista de estar ai nivel del 
prestigio de la firma Ocean. 

El interes no es grande debido a la 
lentitud y la escasez de accion; y el 
sonido, como et color, es bastante 
parco. 




EL SENOR DEL FUEGO 


En tan solo un par de meses, la 
firma Hewson ha conseguido coiocar 
tres de sus ultimas producdones en 
los mejores puestos de las listas 
britanicas, Estos tres sensacionales 
programas son: Uridium, Firelord y 
AUeycat. 

Como sabcis, el primero de ellos ya 
ha sido comentado en estas paginas, 
asf que ahora le toea el turno a I 
segundo, un juego de accion y 
estrategia todavia mas interesante si 
cabe que el anterior. 




Firelord esta ambientado en la Edad 
Media. La accion transcurre en el 
reino magico de ToroL sobre un 
complejo laberinto de senderos 
donde moran los subditos de la 
Rcina Malvada. 

Tu mision consiste en recuperar la 
Piedra de Fuego, rompiendo el 
hechizo que mantiene sometido a tu 
pueblo. La unica forma de 
conseguirlo, es ofreciendo a la 
usurpadora del trono los cuatro 
hechizos de la juventud eterna, que 


DATOS GENERALES 

t ill ■ ill! t ■■ K i fell i Ife fe fe B fe I i ■ A 'ft i ii i fe ft n ■ i i n I fe : ft 1 ft 1 i 

TITULO Firelord 
FABRICANTE Hewson 
ORDENADQR Spectrum 48K 

TEMA DEL PROGRAMA 

Aventura medieval 



CAL 1 FI CA Cl ON (Sobre 10 ptos.) 

ORIGIN ALIDAD 

9 

INTERES 

8 

GRAFICOS 

8 

COLOR 

9 

SONIDO 

8 

TOTAL 

42 


se encuentran ocultos en el interior 
del reino. 

Uno de los aspectos mas originates 
del juego, es la posibilidad de 
«negociar» con sus personajes, 
obteniendo inform acidiu comida. 
armas y todo lo necesario para 
completar la mision, a cambio de 
atgo que ellos soliciten, Cada vez 
que se accede a una casa, se puede 
elegir alguno de los servicios que su 
morador ofrece, sehalando tambien 
que es lo que se va a pagar a 
cambio. Si eres un poco avispado y 
tienes suerte, puedes largarte sin 
pagar antes de que tu vfetima se de 
cuenta del engano; el inconveniente 
es que si te pillan te puedes ir 
preparando para lo peor. En Torot 
las venganzas suelen ser terribles. 
Para que os hagais una idea del 
estilo del programa. os diremos que 
guarda cierto parecido con el rnitico 
Sabre WuIL salvando las distancias, 
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aunque su extraordinaria calidad 
grafica es dificilmente comparable a 
la de un programs de hace tres arios. 
Finalmente, queremos llamar vuestra 


atencion sabre el color. Basta con 
echar un vistazo a las fotograffas que 
acorn pan an a este comentario, para 
comprobar lo que queremos decir. 


Pocas veces homos visto un colorido 
tan abundante y tan bien 
administrado, Esperantos que cunda 
el ejemplo. 


★ ★★★★★★★★★★★★★★★★★★★★★it 


COBRA 

Cobra es Marion Cobretti, un policia 
sin escriipulos especializado en 
trabajos sucios, Se dice de el que sus 
metodos empiezan donde la ley 
acaba, y que cuando se pone en 
accion, no queda un dclincuente vivo 
en varies kilometres a la redonda. 

En esta ocasion, se enfenta a la 
mision mas dura de toda su carrera: 
rescatar a la famosa modelo Ingrid 
Knutsen, secuestrada por una 
peligrosa bands de matones 
capitaneados por el Violador 






matan a tf antes, con la esperanza de 
aproximarte, aunque sdlo sea un 
poco, a tu objetivo final, Debemos 
advertir que ei nivel de dificultad cs 


DATOS GENERALES 
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TITULO Cobra 






FABRICANTE Ocean 
ORDENADOR Spectrum 48K 

TEMA DEL PROGRAMA 

Rescata a la chica 






CALIFICACION (Sobre 10 ptos.) 

ORIGINAUDAD 

7 

INTERES ri 

6 

GRAFICOS 

9 

COLOR 

8 

SONIDO 

7 

TOTAL 

37 


Nocturne, un energumeno que, como 
su nombre indica, suele reservar un 
tratamiento muy especial a las chicas 
que captura, 

Como podreis imaginar, el contenido 
del programa rebosa action y 
violencia. A lo largo de todo el 
juego, no haras otra cosa que corner 
de un lado para otro matan do a 
diestro y siniestro, si es que no te 


muy alto, v que si no eres un 
verdadero experto en el rmanejo del 
joystick o el teclado, lo vas a tener 
muy dificil para ganar. 

El planteamiento del programa se 
parece bastante al utilizado en el 
Green Beret, o en el Ghosts 4 n 
Goblins, aunque la calidad de los 
graficos es mucho mayor, Los 
personajes son de un tain a ho 


considerable, y sus contornos 
siempre aparecen perfectamente 
definidos sobre el decorado, es decir, 
no se producen esas frecuentes 




superposicioncs de sprites que causan 
tan mal efecto. Sin duda, los graficos 
son lo mejor del programa, 

En cuanto al interes, reconocemos 
que no nos entusiasman los tern as 
violentos. En todo caso, tu tienes la 
ultima palabra. Si eres un 
apasionado de este tipo de juegos, te 
garantizamos que Cobra te hara 
pasar muy hue nos ratos, 
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Cambio el juego del Spectrum 48K As- 
troclone por otro cualquiera, o lo ven¬ 
do por 1.000 ptas. 

Jesus Mira Marin 
Pintor Lorenzo Casanova, 15, 5 & A 

Tel. (965) 22 72 03 
03003 Alicante 


Vendo TS-1000 nuevo con todas los ac- 
cesonos, 1 libro, 19juegosy lOprogra- 
mas educativos originates valorado en 
mas de 20.000 ptas. por unas 10.000. 
tambien lo cambiaria por otro ordena- 
dor, TV, etc. si es precise page diferen- 
cia. 

Juan Pedro Vargas Romero 

Tel. 87 10 53 
Los Molares y Lebrlja 

Sevilla 


Vendo interface 1 + 2 microdrives con 
varios cartuchos (mas de 20) en 20.000 
ptas. Vendo Multiface One (9.000) 
Spectrum 20.000 ptas. 

Joaquin Bayon Lopez 
Capitan Almeida, 28, 1* B 
TeL (985) 22 61 13 
33009 Oviedo 


Cambio por un Amstrad PC-464 TV. f, 
verde o 55.000 ptas por un Spectrum 
48K con todos sus accesorios mas: un 
interface tipo Kerri pston con sat id a de 
sonado por T.V.; un joystick correspon- 
diente; un cassette especial para el or- 
denador; Todas las revistas de Todos- 
pectrum, Micromania, Micro hobby, In¬ 
put; Curso complete de Basic y Codigo 
Maquina de Microhobby; un libro de 
Basic y de juegos; un libro de Codigo 
Maquina, 300 juegos recreativos, cultu- 
raies y educativos cuyo valor es de 
500.000 ptas. y todos los copiones exis- 
tentes para Spectrum 48K (Rambo, 
Commando, Zorro, Paradise, Exploding 
Fist, Decathlon 1 dfa y 2 dia, Contabili- 
dad domestic^, Contabilidad personal, 
Gens-3D, Mons 3D, etc.) 


ei20c 



Manuel Roman Guerrero 
Durazno, 1, 5°, 4 3 
TeL 375 28 8T 
Cornelia de Llobregat 
Barcelona 


Cambramos programas Spectrum por 
perifericos Spectrum, equipos electro- 
ntcos de medida, radio-control, stereo 
o radioaficibn. Interesados dirigirse a: 

Jesus o Luis Casado 
Ceramica, 10, 1° izda. 

Tel (987) 61 77 09 (de 7 a 9 de la 

tarde) 
Astorga (Leon) 


Vendo Spectrum 128K, con todos sus 
cables e instrucciones de tniciacion, 
comprado estas navidades al precio de 
50.000 ptas. Vendo tambien juegos 
como: Sir Fred, Beach-Head II, Super- 
Test, Match-Day, Profanation, Sabo¬ 
teur, y otros mas. 

Joaquin 
TeL (926) 61 22 05 


Intereambio programas para Spectrum, 
interesados enviar lista de los que pa- 
seam 

Aitor Pertika Ortiz 
Azurfeku, 7, 6° 
48004 Bilbao 


Deseana recibcr un listado de impreso- 
ra del programa «WaJI» de la cinta de 
demostracion de los primeros Spec¬ 
trum (Ingles). Para concretar precio Ha- 
mar a: 

David Coma 
Pintor Pradilla, 29, 3° 4 n 
TeL (93) 357 42 78 
08032 Barcelona 


Necesito instrucciones en castellano 
(todas) de Tasword Two ya que yo ten- 
go el libro pero en ingles. Tambien ne- 
cesito informacion sob re Alien 8 y Ram¬ 
bo (porque no se que hay que hacer 
despues de rescatar al hombre). A cam- 
bio doy totalmente gratis dos cintas: 
Chess y Computer Scrabble (las dos de 
Psion). Si no se puede instrucciones 
originales me da igual en fotocopias 
pero todas, por favor. Gracias. 

Mario Sanchez 
Mayor, 26 

TeL 893 00 46 (de 14,30 a 15 6 a partir 

de las 22 h.) 

Ciempozuelos (Madrid) 


Vendo Sinclair ZX Spectrum Plus + 
20.000 ptas en re vistas + cassette Inter 
+ Joystick + 200 programas por 55.000 
ptas. Escriblr a: 

Constantino Palian Gonzalez 
Lavinia Letra A, 6° 2 a 
Hospitalet de Llobregat 

Barcelona 


Vendo un interface Kempston y joystick 
completamente nuevos y en perfecto 
estado. El precio de los dos 4.500 ptas. 
Preguntar por: 

Paco 

Tel. (96) 341 27 26 
Valencia 


Cambio lote de 100 juegos; Gunfright, 
Underwudle, Nightshade, Babaliba, 
World Cup, Hobbit, Tir na nog, Raid 
over Moscow, Commando y Mision Im- 
posible por un interface dobfe. Ponerse 
en comunicacion con: 

Ramon Guillen Barrera 
San Carlos, 138 Atc/B 
TeL (965)21 02 14 
03013 Alicante 


Vendo ordenador ZX81 con manual en 
espahol y todos sus accesorios necesa- 
rios por 7*000 ptas* Gastos de envfo por 
mi cuenta, Compro numeros atrasados 
de INPUT, ZX, Microhobby semanal, 
etc, Busco Copion bueno, Lo compro o 
lo cambio por programas 20 (todos co- 
merciales: Fantastic Voyage, Exploding 
Fist, Skool Daze, Knight Lore, Under¬ 
worlds, Match Point, Match Day y otros 
similares). 

Abraham Salvador Luna 
Ministro Barroso y Castillo, 7, plants 

2, puerta 6 
TeL (957)23 92 41 
14004 Cordoba 


Vendo los juegos: Chess, Backgamon, 
Panama Joe, por 1.000 ptas*, para 48K 
y el juego de Reversi para 16K por 1.000 
ptas. Necesitamos usuarios de Spec¬ 
trum para el equtpo «Waners». 

Armando Company Guillen 

Alba I, 5, 11 
Tel. (96) 126 56 32 
Catarroja (Valencia) 


Vendo Spectrum 48K Plus, poco uso, 
manuales en espahol e ingles, varias 
cintas de juegos buenos (West Bank, 
Comando, Hiper Sports, Supertest, 
etc.**) y varias revistas de ordenadores. 
Por 30,000 ptas* 

Rafael Jesus Calzada Cerezo 
Avda. Obispo Angel Herrera Oria, 80 
TeL 39 94 58 (de 14 a 18 h.) 

29007 Malaga 


Vendo ZX-Spectrum Plus comprado en 
Noviembre del 85* Regalo 100 progra¬ 
mas en cinta, 20 revistas y 6 Jtbros sa¬ 
bre el Spectrum, interface Kempston, 
valorado en mas de 55.000 ptas, solo 
por 40.000 o cambio por Commodore 
64. Llamar o escribir a: 

Miguel Fuster 
Avda. President Companys 45-49 
TeL 389 05 48 (de 15 a 22 h.) 

Badalona (Barcelona) 


64 INPUT 







































C/DUQUE DE SESTO, 50. 28009 MADRID 
METRO O'DONNELL 0 GOYA 




FOR CADA PROGRAMA OUE COMPRES j[GRATIS!! UNOS CASCOS DE MUSICA ESTEREO SI TU COMPRA 

ES SUPERIOR A 800 PTAS 


SUPER 10_ 

ASTERIX _ 

KNIGT RIDER_ 

CAULDRON Jl __ 

EQUINOX_ 

PHANTOM AS II_ 

LAS 3 LUCES DE GLAURUNG 

JACK THE NIPPER _ 

MOVIE__ 

TURBO ESPRIT_ 

FIGHTING WARRIOR ____ 

DUMMY RUN_ 


3.995 ptas. 
2.100 ptas. 
2.100 ptas. 
2.100 ptas. 
1.395 ptas. 
2.100 ptas. 
2.100 ptas. 
2.100 ptas. 
2.100 ptas. 
2.100 ptas. 
495 ptas. 
495 ptas. 


s ptC 




p L US 




6 J 


o£ g0S 


23 


.BOO 


S*Ol 




<3*2?rtO«° 


O ^ 


su? Lt 


ANTIRIAD_ 

STREET HAWK_ 

SUPER SERIES_ 

TENNIS _ 

STAINLESS STEEL 

PHANTOMAS_ 

WORLD CUP_ 

PENTAGRAM_ 

PHANTOMAS_ 

PING-PONG_ 

BOUNTY BOB_ 

SOUTHERN BELLE 


2.100 ptas. 
2.100 ptas. 
2.100 ptas. 
1.500 ptas. 
2.100 ptas. 
2.100 ptas. 
1.395 ptas. 
1.395 ptas. 
2.100 ptas. 
2.100 ptas. 
495 ptas. 
495 ptas. 



(MPRESORAS 20% DE DESCUENTO 


CASSETTE ESPECIAL_ 4.495 ptas. 

LAPIZ OPTICO_ 2.890 ptas. 

CARTUCHO MICRODRIVE __ 495 ptas. 

CARTUCHERA 4 MICRODRIVES_ 150 ptas. 

AMPLIACION MEMORIA__ 3.995 ptas. 

INTERFACE SONIDO TV ___ 2.595 ptas. 


INTERFACE CENTRONICS RS-232 

DISKETTES 3"_ 

DISKETTES 5 1 //_ 

CINTA C-15 ESPECIAL ORDENADOR 

INTERFACE MULTIJOYSTICK_ 

TECLADO SAGA 1 __ 


8.495 ptas. 
735 ptas. 
295 ptas. 
69 ptas. 
3.795 ptas. 
9.295 ptas. 


QUICK SHOT I_ 1.395 ptas. 

QUICK SHOT II_ 1.695 ptas. 

QUICK SHOT V_ 1.695 ptas, 

QUICK SHOT IX _ 2.295 ptas. 


QUICK SHOT I + INTERFACE_ 2.695 ptas. 

QUICK SHOT + INTERFACE_ 2.995 ptas. 

QUICK SHOT V + INTERFACE__ 2.995 ptas. 

QUICK SHOT IX + INTERFACE— _ 3.595 ptas. 


PRECIOS EXCEPCIONALES PARA TU AMSTRAD 
CPC-464, CPC-6128, PCW-8256, PCW-8512 

Pedidos contra reembolso sin ningun gasto de envio. Telefs.: (91) 275 96 16 - 274 75 02, o escribiendo a: 

MICRO-1. CL DUQUE DE SESTO, 50. 28009 MADRID 

TIENDAS Y DISTRI BUI DOPES GRANDES DESCUENTOS. PARA MAYOR INFORMACION 
DIRIGIRSE A: DIPROIMSA. C/GALATEA, 25. 28042 MADRID. TEL. (91) 274 75 03 
































































Vendo lotes de 10 juegos por solo 3.000 
ptas. Tambien los vando por separado. 
Ten go I os mejores titulos de Software. 

Marcos Bravo Calvo 
Espronceda, 331, 4* 3 
Tel. (93) 340 89 36 
08027 Barcelona 


Cambio juegos superstar (original) por 
Decathlon, Activision (original)- Escribir 
a: 

Luis Terradfllos Atan 
Jofre de Tenorio, 13, 1* izda, 
36002 Pontevedra 


Vendo joystick tipo Kempston usado 
pocas veces por 4.000 ptas. con su co- 
rrespondiente interface, tambien varias 
cintas frogger, 3d duel, galax y varias 
cintas de Mierohobby y Video-Spec¬ 
trum, E3 precio a convenir (las vendo 
baratas) a ser posibfe en Madrid. 

Manuel Castiflejos Vaya 
Aldeanueva de la Vera, 20, 2B 

28044 Madrid 


Vendo 76 revistas, todas para Spec¬ 
trum, por 5.500 ptas. vaioradas en 
11,500- Solo para gente de Madrid. Para 
mas informacion: 

Alvaro 

TeL 251 39 91 (de lunes a viernes de 

14,30 a 15 h.) 
Madrid 


Busco compilador de Fortran con ins- 
trucciones. Tambien busco los progra- 
mas Nightshade, Gunfright, Cyberun, y 
otros 3D, Lq cambio todo por software, 

Pablo 

Tel- (986) 29 67 43 


Club Catafuna esta interesado en inter- 
cambiar juegos, ideas, trucos, mapas. 
etc. 


EIZOCt 



Pere FontanaJs Bosch 
Fonollar, 30, 3 6 2 s 
Manresa (Barcelona) 


Vendo, cambio por juegos,--. trafico 
con el fibro «ZX-Spectrumi que es, para 
que sirve, como se usa» nuevo. 

Juan Jose Pita Afbiac 
Hernandez Pacheco, 1, 1*H 

10002 Caceres 


Pretendemos crear en «Baix Ebre* y 
<fMontsia» un «Club Spectrum*. Todos 
los interesados dirigirse a: 

Baltasar Casanova Giner 
Ramon y Cajal, 15 
La Cava-Deltebre 
Tarragona 

Vendo ordenador ZX-Spectrum con te- 
clado profesional saga 1, impresora 
GP50S, cassette, interface para joystick 
y joystick, TV b/n, laplz optico, 300 pro- 
gramas comerciaies, mas de TOO revis¬ 
tas del Spectrum y una enciclopedia del 
Spectrum. Precio a convenir. 

TeL (96) 359 22 74 
_Valencia 

Necesfto mapa «Doomark Revenge* 
pagare fotocopias y gastos de envto. 

Enrique Martinez Bonet 
Corsega, 629, 1 a , 3° 
TeL 347 26 10 
08025 Barcelona 


Desearia comprar una impresora con 
interface incluido. Tambien la compro 
sin interface. Dirigirse a: 

Eduardo Carrasco 
Cabo Tarifa B-98-1, 2*B 
TeL (91) 785 48 62 (de 7,30 a 10 de la 

noche) 

Pozo del Tio Ratmundo 
28018 Madrid 


Se vende Copion Lerm Tape Copier 7, 
fo copia todo (bloques largos, turbos, 
programas con cabecera vibrante...). 
Tambien vendo el manual (en espahol) 
para su manejo. Lo vendo todo junto o 
separado. Preguntar por: 

Jose Luis 

TeL (957) 23 09 35 (llamar por fas 

tardes) 


Intercambio programas para Spectrum. 
Me interesa conseguir el compilador 
Colt y el ensamblador Gens. Enviar fis- 
ta. Interesados escribir a: 

Jose Luis Lopez Lopez 
Palamios 5 r 2°D 
36001 Pontevedra 


Estoy interesado en contactar con 
usuarios Spectrum para mtercambiar 
juegos. Escribir a: 

Juan Fz. Jauregui 
Francia, 25, 2°C 
01004 Vitoria 


Cambio software por hardware, fntere- 
sados dirigirse a: 

Carlos Gonzalez 
Nieves Cano, 65, V izda. 

01006 Vitoria 


Vendo ordenador ZX-Spectrum Pius, 
Television Color Elbe 14 Pulgadas. Re¬ 
gale cassette Computone y 6 cintas de 
juegos, todo a estrenar. Interesados !la- 
mar a: 

Tel. 333 29 22 
Valencia 


La redaction de Input 

os desea unas 

FELICES NAVIDADES 
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RECORTA Y ENVIA £$TE OJPGN A: SERMA. C/. CARDENAL BEILUGA, 21, 2802B MADRID. TELFS. 256 2 \ 0 I JQ1 


Tl T ULO:________________ 

NOMBRE Y APELUDOS:________ 

DIRECTION; _______. CODIGO POSTAL; 

PnBLAnON-__ PROVING A:_ 

FORMA Dl PAGG; 


FNVIO TALON BAK'CARtO □ - CONTRA REEMBGLSG □ 
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* Metro Spedrum 
asaportefanisstfco, 
^dras cmsmuk 
Uff neioj aTiiclnante,. 


Interface MIDI (Musical Instrument Digital Interface: SSlida Serie R5 232 

bidirectional Dos conectores para joysticks Conector piano 
compatible con todos los model os Spectrum antenores editor de panta a 
y dos versiones BASIC en ROM 48 K BASIC, compatible cor Spectrum J & K 
45 K v ZX - 128 K BASIC, compatible con ZX Spectrum 128 


Microprocesador Z8QA. 128 K RAM 32 K ROM Teclado de 58 teclas 

32 columnar X 24 filas de lexto Graficos de alia resolucion 
f256 ■ 1 92 pixels^ 3 coiores con dos mveles de brillo cada uno. 
Calculation en pantalla. 3 canales de son?do pragma mables e 
independientes Cassette rncorporada Saiida TV y monitor RGB 


C;. Aravata. 22,28040 Madrid, let. 4S9 30 OF. Telex476601NSC E. Fax459 22 92. OeleeadoTi enCataLuna: C Tarragona, 510, Tel 325 1058. 08015 Barcelona 
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